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-REM\ 


IDENTIFICATION 


PRODUCT ID: AC -T7818 -MC 

PRODUCT TITLE: CZTKHB TK25 FRT END FUNC 04 

PRODUCT DATE: JUNE 1985 

DEPARTMENT: TAPE AND OPTICAL DIAGNOSTIC ENGINEERING 
AUTHOR : RAYMOND CHANG 


COPYRIGHT (C) 1984,1985 BY 
DIGITAL EQUIPMENT CORPORATION, 
WESTBORO, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE INCLUSION 
OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER COPIES 
THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY OTHER 
A TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 

N ° 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE AND 
tee Be olhg, CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY DIGITAL. 
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1.0 ABSTRACT 


THIS IS A PDP-11/LSI RESIDENT DIAGNOSTIC WHICH CHECKS THE FUNCTIONALITY OF 
AN TK25 MAGTAPE SUBSYSTEM WHILE CONNECTED TO A PDP-11 SYSTEM (Q-BUS OR 
UNIBUS). THE PROGRAM HAS BEEN DIVIDED INTO FOUR MAJOR PIECES: CZTKE, 
CZTKF, CZTKG, CZTKH. SUCCESSFUL RUN EXAMPLES, AND TEST DESCRIPTIONS HAVE 
BEEN PROVIDED FOR EACH PROGRAM. 


THE PROGRAMS PROVIDE ERROR MESSAGES WHICH IDENTIFY FAILING FUNCTIONS, AND 
AID IN DEVICE REPAIR. REFERENCE THE FOLLOWING DIGITAL EQUIPMENT DOCUMENTS: 


1. CIQPMAO XXDP+ PROGRAMMER’S MANUAL; DOCUMENT NUMBER AC-S296A-AC; 
DATE: 14 JULY 1980. 


1.1 REVISION HISTORY 
NEW RELEASE APRIL 1984 


REV B NOV 1985 INCREASED DELAY LOOPS IN WAITF ROUTINE 
SQ SUPERVISOR COULD FIELD BREAK CALLS 
AT ITS LIMIT. 
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2.0 REQUIREMENTS 


2.1 HARDWARE REQUIREMENTS 


POP-11 FAMILY PROCESSOR WITH 32K WORDS OF MEMORY 
TK25 MAGTAPE SUBSYSTEM (DRIVE AND CONTROLLER) 
CAUTION: DIAGNOSTIC REQUIRES 32K WORDS OF MEMORY 
(28K USEABLE I.E. 4K FOR I/0 PAGE) 


2.1.1 OPTIONAL HARDWARE - 


FOUR TK2S5 CONTROLLERS PER POP-11, ONE 
DRIVE PER CONTROLLER 


2.2 SOFTWARE REQUIREMENTS 


POP-11 DIAGNOSTIC SUPERVISOR (XXDP+ VERSION 2.1) 
PDP-11 DIAGNOSTIC LOADER/MONITOR (XXDP-+) 


2.3 PREREQUISITES 


FUNCTIONAL PDP-11/LSI FAMILY CENTRAL PROCESSOR AND MEMORY 
FUNCTIONAL CONSOLE TERMINAL 
FUNCTIONAL STANDALONE DIAGNOSTIC SUPERVISOR 





SEQ 0004 
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3.0 OPERATING INSTRUCTIONS - OPERATOR COMMANDS 


3.1 OPERATOR COMMANDS 


THE TK25 DIAGNOSTICS ARE POP-11 DIAGNOSTIC SUPERVISOR COMPATIBLE PROGRAMS. 
ALL LOADING AND RUN TIME INSTRUCTIONS CAN BE REFERENCED IN THE POP-11 
PROGRAMMER‘S MANUAL “CIQPMAO XXDP” PROGRAMMER'S MANUAL NUMBER AC-S296A-AC. 


BOOT THE DIAGNOSTIC XXDP+ MEDIA (OPERATOR RESPONSES ARE UNDERLINED) 


BOOTING UP XXDP-XM EXTENDED MONITOR 


XXDP-XM EXTENDED MONITOR VERSION 2.1 
BOOTED FROM DLO 

28KW OF MEMORY 

NON-UNIBUS SYSTEM 


RESTART ADDR: 065570 
THIS IS XXDP-XM. TYPE “H” OR “H/L” FOR HELP. 


-R CZTKHB 


CZTKHB .BIN 


DRSXM- XO 

CZTKH-B-0 

CZTKHB TK-25 FRT END FUNC #4 
UNIT IS TK-25 

RESTART ADDRESS 141656 
DR>START/FLAG: PNT: HOE 


THE ABOVE COMMAND WILL START THE DIAGNOSTIC. THE COMMAND HAS TWO 
a oy ON WHICH ARE “PRINT EACH TEST NBR. AS EXECUTED” AND “HALT ON 
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3.2 HARDWARE PARAMETERS 





AFTER INITIAL STARTING OF THE PROGRAM (START COMMAND TO THE DIAGNOSTIC 
SUPERVISOR), THE PROGRAM WILL ISSUE THE "CHANGE HW?” QUESTION TO ASK IF THE 
HARDWARE PARAMETERS ARE TO BE CHANGED (BY THE OPERATOR). 


ON A “N” (NO) RESPONCE TO THE QUESTION, THE PROGRAM WILL USE IT'S DEFAULT 
HARDWARE PARAMETER VALUES. IT WILL DEFAULT TO ONE UNIT SELECTED (UNIT 0), 
THE DEFAULT TSBA/TSDB WILL BE 172522 AND THE INTERRUPT VECTOR WILL BE 224. 


ON A “Y" CYES) RESPONSE TO THE QUESTION, THE FOLLOWING QUESTIONS WILL THEN 
BE ASKED TO ALLOW THE OPERATOR TO SELECT THE UNITS TO BE TESTED. A VALUE, 
IF PRESENT, LOCATE) TO THE LEFT OF THE QUESTION MARK IS THE DEFAULT VALUE 
THAT WILL BE TAKEN ONLY IF A CARRIAGE RETURN IS TYPED AS A RESPONSE. A 
"(D0)" IN A QUESTION INDICATES THAT A DECIMAL NUMBER IS REQUIRED AS A 
RESPONSE. AN “(0)” INDICATES AN OCTAL NUMBER IS BEING a AN “(L)" 
THAT A LOGICAL RESPONSE IS TO BE MADE: “Y” FOR YES, “N’ FOR NO 


UNITS (D) ? < ENTER THE NUMBER OF CONTROLLERS ‘ 
PRESENT TO BE TESTED> 


UNIT 0 


DEVICE ADDRESS (0) 172522 ? <ENTER THE ADDRESS OF THE 
TSBA/TSOB REGISTER> 


VECTOR (0) 224 ? <ENTER ADDRESS OF INTERRUPT 
VECTOR> 


THE ADDRESS AND VECTOR QUESTIONS WILL BE ASKED FOR EACH OF THE NUMBER OF 
UNITS (CONTROLLERS) SPECIFIED IN THE “.UNITS ?” QUESTION. LOGICAL UNIT 
NUMBERS ARE ASSIGNED IN ORDER BEGINNING AT 0. UP TO FOUR UNITS CAN BE 
SELECTED FOR TESTING. 
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3.3 SOFTWARE PARAMETERS 


THE 
FOLLOWING QUESTIONS ARE ASKED ON A START, RESTART, OR CONTINUE. THEY 
ALLOW FLEXIBILITY IN THE WAY THE PROGRAM BEHAVES. 


CHANGE SW (L) ? < TYPE “Y” TO CAUSE THE FOLLOWING 
QUESTIONS TO BE ASKED. > 


INHIBIT ITERATIONS (L) N ? < TYPE "Y" TO PREVENT MULTIPLE 
ITERATIONS OF CERTAIN TESTS. 
THIS CAUSES EACH TEST PASS TO 
RUN AS QUICKLY AS POSSIBLE. 
ONLY QUICK-RUNNING LOGIC 
TESTS USE MULTIPLE ITERATIONS. > 


ENABLE CONTROLCER RAM DUMP ON ERROR (L) N? < TYPE “Y" TO DUMP 
SELECTED RAM CONTENTS IN THE 
CONTROLLER MODULE. > 


NOTE 


THE FOLLOWING QUESTION IS ONLY ASKED FOR THE 
CZTKH DIAGNOSTIC. 


INHIBIT EOT CHECKING (REDUCES RUN TIME BY 22 MINUTES) (L) N? 

<THIS WILL SIGNAL THE DIAGNOSTIC 
SKIP END OF TAPE CHECKING. IF THE 
OPERATOR IS CONVINCED THAT THERE 
IS NO PROBLEM WITH EITHER THE 
TRACK SWITCHING CAPABILITY OR 

THE EOT DETECTION MECHANISM, THIS 
co MAY BE SKIPPED TO REDUCE RUN 

<a 
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4.0 OPERATING INSTRUCTIONS - SAi@ce PRINTOUTS 


4.1 SUCCESSUL RUN EXAMPLES 


4.1.1 SUCCESSFUL RUN EXAMPLE - CZTKH - 


TST: 001 WRITE TAPE MARK RETRY TEST 
TST: 002 SKIP TAPE MARKS TEST 
TST: 003 NO-OP (“CLEAN TAPE”) AND INITIALIZE TEST 
TST: 004 ERASE AND OPERATION INCOMPLETE TEST 
TST: 00S TEST OF OPERATIONS AT EOT TEST 
CZTKH EOP 1 
0 TOTAL ERRS 


NOTE: PROGRAM NOW STARTS OVER AGAIN AT TEST 1 
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4.2 OPERATING INSTRUCTIONS - SAMPLE ERROR MESSAGES 


ERROR MESSAGE EXAMPLE 1 


A SR RR 0 RE ARS SR 
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TST: 005 OPERATIONS AT EOT TEST 


CZTKH HRD ERR 00517 ON UNIT 00 TST 005 SUB 001 PC:054200 
UNABLE TO CLEAR EOT INIDICATION (XSTO) BIT 0 


TSSR=000311 


TSSR CONTENTS ARE AMBIGUOUS 
TSSR BITS SET: SSR,OFL,BITO 


TERMINATION CLASS CODE=RECOVERABLE ERROR - TAPE 
POSITION ONE RECORD DOWN 


*ae24%4CHECK TRANSPORTssaa% 


PACKET ADDRESS=055510 
PACKET WORD #0=140410 
PACKET WORD #1=000003 
PACKET WORD #2=000000 
PACKET WORD #3=006654 


MESSAGE BUFFER ADDRESS=055400 


MESSAGE BUFFER CONTENTS: 
MESSAGE BUFFER HEADER 
DATA FIELD LENGTH 
RESIDUAL BYTE COUNTER 
XSTATO CONTENTS 

XSTAT1 CONTENTS 

XSTAT2 CONTENTS 

XSTAT3 CONTENTS 


=100020 
=000012 
=000000 
=000311 
=000000 
=100000 
=000040 


SEQ 0009 
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ERROR MESSAGE EXAMPLE 2 


CZTKH HRD ERR 00106 ON UNIT 00 TST 001 SUB 001 PC:024240 
TSSR NOT CORRECT AFTER SPACE REVERSE DATA COMMAND 


TSSR=100214 

TSSR BITS SET: SC, SSR 

TERMINATION CODE = UNRECOVERABLE ERROR 
*aae24CHECK TRANSPORTseeae 

PACKET ADDRESS =026510 

PACKET WORD #0 =141011 

PACKET WORD #1 =065152 

PACKET WORD #2 =000000 

PACKET WORD #3 =000000 


MESSAGE BUFFER ADDRESS +=026400 
MESSAGE BUFFER CONTENTS: 
MESSAGE BUFFER HEADER +=100022 


DATA FIELD LENGTH =000012 
RESIDUAL BYTE COUNTER +=000000 
XSTATO CONTENTS #000312 
XSTAT1 CONTENTS =000000 
XSTAT2 CONTENTS =100000 
XSTAT3 CONTENTS =000141 


ERROR MESSAGE EXAMPLE 3 


CZTKH HRD ERR 00107 ON UNIT 00 TST 001 SUB 001 PC:024274 
WRITE TAPE MARK RETRY AT BOT, FAILED TO SET NEF (XSTO) 


EXPD: 002312 RECV: 000312 XOR: 002000 
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5.0 PROGRAM RUN TIMES 





THE AVERAGE RUN TIMES OF THE PROGRAMS ARE LISTED BELOW. THESE FIGURES ARE 
TO BE USED AS A GUIDE. THE TIMING WAS DONE ON A PODP-11/23 (LSI) PROCESSOR 
WITH A LA-120 CONSOLE. 


THE PROGRAMS RUN IN NON-ITERATIVE MODE. EACH TEST IS RUN ONCE, WITH NO 


ITERATIONS. THEREFOR, THE DEFAULT MODE (NORMALLY ITERATIVE) AND THE 
NON-ITERATIVE MODE TIMES ARE IDENTICAL. 


S.1 RUN TIMES - CZTKH 


TEST N/I DEF 
NUMBER SECS. SECS. 


1 180 180 
2 113 113 

3 11 11 

a 120 120 

5 1320 1320 


THE TIMES REQUIRED TO RUN TESTS 1 THROUGH 5 IN ONE COMMAND: 


Q.V. 29 MINS 4 SECONDS 
DEFAULT 29 MINS 4 SECONDS 


— 
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— 





9.0 TEST DESCRIPTIONS - CZTKH 


6.1 TEST 1 - WRITE TAPE MARK RETRY 


SAAR EAEE EERE EEE REE EEEE ESOS EE OE OSES EERE EEEEEE EE EEE EROS 
* NOTE: THIS TEST MUST HAVE A GOOD MAGTAPE IN THE DRIVE x 
*# ANY TAPE ERRORS WILL BE DISPLAYED AS A TAPE STATUS ALERT « 
REAEREEEESESEEEEEARERESEEEEEEE SEERA EEE EEE EELS ODED EE EERE EE 


THIS TEST VERIFIES PROPER OPERATION OF THE WRITE TAPE MARK RETRY COMMAND 
€ SPACE REVERSE, ERASE, WRITE TAPE MARK). SUBTESTS ARE AS FOLLOWS: 


6.1.1 TEST 1, SUBTEST 1: - 


VERIFIES THAT A WRITE TAPE MARK RETRY COMMAND ISSUED WHILE THE TAPE IS 
POSITIONED AT BOT CAUSES FUNCTION REJECT TERMINATION WITH THE 
NON-EXECUTABLE (NEF) ERROR BIT SET. 


6.1.2 TEST 1, SUBTEST 2: - 


VERIFIES THAT A WRITE TAPE MARK RETRY COMMAND ISSUED WHILE THE TAPE IS 
POSITIONED BEFORE THE FIRST RECORD, BUT NOT AT BOT, RESULTS IN TAPE STATUS 
ALERT TERMINATION, WITH THE REVERSE INTO BOT (RIB) STATUS BIT SET. 


6.1.3 TEST 1, SUBTEST 3: - 


VERIFIES THAT A WRITE TAPE MARK RETRY COMMAND TERMINATES PROPERLY AND 
WRITES THE TAPE MARK ONTO TAPE (BY ISSUING A READ REVERSE COMMAND AND 
CHECKING FOR TAPE STATUS ALERT TERMINATION AND TMK=1). 


6.1.4 TEST 1, SUBTEST 4: - 


VERIFIES THAT THE SPACE-REVERSE PORTION OF THE WRITE TAPE MARK RETRY 
OPERATION IS PERFORMED BY REWINDING THE TAPE, ISSUING SEVERAL WRITE TAPE 
MARK RETRY COMMANDS IN SUCCESSION, THEN ISSUING TWO SP 

ACE RECORDS REVERSE 

COMMANDS IN SUCCESSION. THE SECOND SPACE ye REVERSE COMMAND SHOULD 
TERMINATE WITH REVERSE INTO BOT CRIB) STATUS SET 


SEQ 0012 





CZTKHB TK-25 FRT END FUNC 04 MACRO YOS.02 Tuesday 25-Jun-85 10:28 Page 14 
USER DOCUMENTATION 


6.2 TEST 2 - SKIP TAPE MARKS 


SORE EEEEEE DEES EEE EEOEOE ODES EE O644400006060646600000008884 
* NOTE: THIS TEST MUST HAVE A GOOD MAGTAPE IN THE DRIVE « 
* ANY TAPE ERRORS WILL BE DISPLAYED AS TAPE STATUS ALERT « 
ShOhEAAeEREE EEE EEEEEE DEEDES EOE DEES ES OSE OEEEEEEREEREEEEES 


THIS TEST VERIFIES PROPER OPERATION OF THE SKIP TAPE MARKS FORWARD AND SKIP 
TAPE MARKS REVERSE COMMANDS. PROPER OPERATION UNDER CONTROL OF ALL 
COMBINATIONS OF THE ENABLE SKIP TAPE MARKS STOP (ESS) AND ENABLE TAPE MARKS 
STOP OFF BOT CENB) BITS SPECIFIED BY THE WRITE CHARACTERISTICS COMMAND. 

THE TEST CONSISTS OF THE FOLLOWING SUBTESTS ( FOR EACH SUBTEST, THE TAPE IS 
FIRST WRITTEN WITH AN APPROPRIATE SERIES OF DATA RECORDS, AND/OR TAPE 
MARKS, AND/OR DOUBLE TAPE MARKS). 


6.2.1 TEST 2, SUBTEST 1: - 


VERIFIES THAT A SKIP TAPE MARKS FORWARD COMMAND WITH A TAPE MARK COUNT OF 1 
OPERATES PROPERLY. THE TAPE IS FIRST REWOUND AND THEN WRITTEN WITH SEVERAL 
"FILES"; EACH FILE CONSISTS OF A NUMBER OF DATA RECORDS FOLLOWED BY A TAPE 
MARK. EACH DATA RECORD CONTAINS THE FILE NUMBER AND THE RECORD NUMBER 
WITHIN THE FILE SO THAT TAPE POSITION CAN BE SUBSEQUENTLY VERIFIED BY 
READING THE DATA. THE TAPE IS AGAIN REWOUND AND A SERIES OF TAPE SKIP MARK 
COMMANDS ARE ISSUED AND THE RESULTS (TAPE STATUS ALERT TERMINATION, TMK=1, 
STATUS, TAPE POSITION VIA READ COMMAND) IS CHECKED. PRIOR TO ISSUANCE OF 
EACH SKIP COMMAND, A WRITE CHARACTERISTICS COMMAND IS ISSUED TO SET UP THE 
ESS AND ENB CONTROL BITS. ALL COMBINATIONS OF ESS AND ENB ARE USED 

he Pn 11) ; OPERATION SHOULD BE THE SAME IN EACH CASE FOR THIS 


6.2.2 TEST 2, SUBTEST 2: - 


VERIFIES THAT SKIP TAPE MARKS COMMAND WITH A TAPE MARK COUNT GREATER THAN 1 
OPERATES PROPERLY. COUNTS OF 2, 3, 8, 32, 64, 256, AND 512 ARE TESTED. 
THE TESTING SEQUENCE IS SIMILAR TO THAT USED IN SUBTEST 1. 


6.2.3 TEST 2, SUBTEST 3: - 


VERIFIES THAT A SKIP TAPE MARKS REVERSE COMMAND ISSUED WHILE THE TAPE IS 
POSITIONED AT BOT CAUSES FUNCTION REJECT TERMINATION WITH THE 
NON-EXECUTABLE FUNCTION (NEF) ERROR BIT SET. 





SEQ 0013 








ES 6 SR A 
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6.2.4 TEST 2, SUBTEST 4: - 


VERIFIES THAT A SKIP TAPE MARKS REVERSE COMMAND ISSUED WHILE THE TAPE IS 
POSITIONED JUST BEFORE THE FIRST RECORD ON TAPE (BUT NOT AT BOT) CAUSES 
Lint STATUS ALERT TERMINATION WITH THE REVERSE INTO BOT (RIB) STATUS BIT 
SET. 








SEQ 0014 


—_—_—_—_—_ ee eS 
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6.3 TEST 3 - NO-OP ("CLEAN TAPE”) AND INITIALIZE 





THIS TEST VERIFIES PROPER OPERATION OF THE NO-OP ("CLEAN TAPE“) AND 
INITIALIZE COMMAND. SUBTESTS ARE: 


6.3.1 TEST 3, SUBTEST 1: - 


VERIFIES THAT THE NO-OP COMMAND ( CORRESPONDS TO THE CLEAN TAPE COMMAND) 
TERMINATES PROPERLY ( NORMAL TERMINATION), STORES PROPER STATUS IN THE 
MESSAGE BUFFER (LIKE THE GET STATUS COMMAND), AND INDEED DOES NOT MOVE 
TAPE. THE TAPE IS FIRST REWOUND AND WRITTEN WITH THE SEQUENCED TEST 
RECORDS. IT IS THEN REWOUND AGAIN AND THE NO-OP COMMAND IS ISSUED. IT IS 
VERIFIED THAT THE TAPE IS STILL AT BOT AND THAT PROPER STATUS IS STORED. 
THE FIRST RECORD ON TAPE IS READ AND VERIFIED (TO CHECK THAT TAPE POSITION 
AND VERIFYING DATA WERE NOT CHANGED), THEN THE NO-OP COMMAND IS ISSUED 
AGAIN AND STATUS AND POSITION ARE VERIFIED. 


6.3.2 TEST 3, SUBTEST 2: - 


VERIFIES THAT THE INITIALIZE COMMAND OPERATES AS A NO-OP, ASSUMING NO 
MICRODIAGNOSTIC ERRORS ARE PRESENT (THEY WOULD HAVE ALREADY BEEN DETECTED 
IN OTHER TESTS). THE TEST SEQUENCE IS SIMILAR TO THAT USED IN SUBTEST 1. 





SEQ 0015 


—— 





a 
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6.4 TEST 4 - ERASE AND OPERATION INCOMPLETE 


CRRAAAAEEEEAEEAAESEEEESAEREAEARAAREREARAEAADEEEEERERDEEEEE 
* NOTE: THIS TEST MUST HAVE A GOOD MAGTAPE IN THE DRIVE «# 
* ANY TAPE ERRORS WILL BE DISPLAYED AS TAPE STATUS ALERT « 
SRAEAEEEEAAEESESASEEEAEAAEAEREEEDAOREDEEEEEEEEEREEEEED ERE 


THIS TEST VERIFIES THAT THE ERASE COMMAND OPERATES PROPERLY AND THAT THE 
VARIOUS OTHER TAPE MOTION COMMANDS TERMINATE WITH UNRECOVERABLE ERROR (TAPE 
POSITION LOST) AND OPERATION INCOMPLETE (OPI) STATUS WHEN THEY DO NOT 
lah ANY DATA ON THE TAPE. THE TEST CONSISTS OF THE FOLLOWING 
SUBTESTS: 


6.4.1 TEST 4, SUBTEST 1: - 


VERIFIES THAT AN ERASE COMMAND ISSUED WHEN THE TAPE IS POSITIONED AT BOT 
OPERATES PROPERLY AND ACTUALLY ERASES THE TAPE. THE FOLLOWING TEST 
SEQUENCE IS PERFORMED: 


1. THE TAPE IS FIRST REWOUND, THEN SEVERAL TEST RECORDS ARE WRITTEN 
AND THE TAPE IS REWOUND AGAIN. 


2. Rm yg COMMAND IS ISSUED, WHICH SHOULD ERASE A NUMBER OF TEST 


3. oe TERMINATION IS VERIFIED AND POSITION IS CHECKED (BOT SHOULD 
0). 


4. A READ REVERSE COMMAND IS ISSUED. IT IS VERIFIED THAT THE COMMAND 
TERMINATES WITH TAPE STATUS ALERT, THAT THE REVERSE INTO BOT (RIB) 
STATUS BIT IS SET, AND THAT NO DATA IS TRANSFERRED. THIS 
DEMONSTRATES THAT NO DATA WAS ENCOUNTERED IN THE AREA ERASED BY 
THE ERASE COMMAND. 


6.4.2 TEST 4, SUBTEST 2: - 


VERIFIES THAT AN ERASE COMMAND, EXECUTED WHEN THE TAPE IS NOT POSITIONED AT 
BOT a ag PROPERLY AND DOES NOT CORRUPT PREVIOUS TAPE RECORDS. THE TEST 
SEQUEN $: 


1. THE TAPE IS FIRST REWOUND, SEVERAL TEST RECORDS ARE WRITTEN, AND 
THE TAPE IS REWOUND AGAIN. 


2. A SPACE RECORDS FORWARD COMMAND IS ISSUED TO MOVE THE TAPE OFF OF 
BOT AND SKIP OVER THE FIRST SEVERAL RECORDS. 


3. oh og COMMAND IS ISSUED, WHICH SHOULD ERASE A NUMBER OF TEST 
RECORDS. 


SEQ 0016 
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4. NORMAL TERMINATION IS VERIFIED AND STATUS IS CHECKED. 


S. A READ REVERSE COMMAND IS ISSUED. IT IS VERIFIED THAT NORMAL 
TERMINATION IS ACCOMPLISHED AND THAT THE DATA TRANSFERRED 
CORRESPONDS TO THAT FOR THE EXPECTED RECORD. THIS DEMONSTRATES 
THAT NO DATA WAS ENCOUNTERED IN THE AREA ERASED BY THE ERASE 
COMMAND, AND THAT THE PREVIOUS RECORD WAS NOT CORRUPTED. 


6.4.3 TEST 4, SUBTEST 3: - 


VERIFIES THAT THE TAPE MOTION COMMANDS, EXECUTED WHEN THE TAPE IS BLANK, 
RESULT IN UNRECOVERABLE ERROR TERMINATION AND OPERATION INCOMPLETE STATUS. 
THE FOLLOWING TEST SEQUENCE IS EXECUTED: 


1. THE TAPE IS REWOUND. 


2. 300 ERASE COMMANDS ARE ISSUED (ABOUT HALF-WAY DOWN FIRST TRACK). 


IT IS VERIFIED THAT EACH OF THE FOLLOWING COMMANDS (ISSUED IN THE 
ORDER GIVEN ) RESULTS IN UNRECOVERABLE ERROR TERMINATION WITH 
OPI=1; SPACE RECORDS REVERSE, SKIP TAPE MARKS REVERSE, READ 
REVERSE, REREAD PREVIOUS (OPP=0), REREAD PREVIOUS (OPP=1), REREAD 
NEXT COPP=1), REREAD NEXT (OPP=0), READ NEXT, SKIP TAPE MARKS 
REVERSE, SKIP TAPE MARKS FORWARD, REVERSE SKIP TAPE MARKS FORWARD, 
SPACE RECORDS FORWARD, WRITE DATA RETRY. 











CZTKHB TK-25 FRT END FUNC 04 MACRO YOS.02 Tuesday 25-Jun-85 10:28 Page 19 


USER DOCUMENTATION 


6.5 TEST S - OPERATIONS AT EOT 


RERAAEERARAAEAAAAAAEEEEREREAAAAEAREREREAERERES ER ERAREEEEEEE 
*# NOTE: THIS TAPE MUST HAVE A GOOD MAGTAPE IN THE DRIVE « 
* ANY TAPE ERRORS WILL BE DISPLAYED AS TAPE STATUS ALERT « 
SRAEAEREEREREAAEAEAEEREAEAADAEEREAEAARARESAREREEAEEREEER ERE 


THIS TEST VERIFIES THAT THE EOT STATUS IS HANDLED PROPERLY BY THE VARIOUS 
TAPE MOTION COMMANDS. THE FOLLOWING TEST SEQUENCE IS PERFORMED: 


1. 
2. 


13. 


Xe OO ati a a 


THE TAPE IS REWOUND. 


WRITE DATA COMMANDS ARE REPEATEDLY ISSUED UNTIL TAPE STATUS ALERT 
TERMINATION IS SEEN WITH EOT=1. ERRORS OTHER THAN OCCASIONAL 
CORRECTABLE, OR UNCORRECTABLE DATA ERRORS CAUSE A FATAL ERROR 
REPORT. RECORDS WITH DATA ERRORS ARE RETRIED, SO THE TAPE ENDS UP 
WITH GOOD DATA. 


ANOTHER WRITE DATA COMMAND IS ISSUED AND IT IS CHECKED THAT TAPE 
STATUS ALERT TERMINATION OCCURS, WITH EOT=1. 


A WRITE TAPE MARK COMMAND IS ISSUED, AND IT IS CHECKED THAT TAPE 
STATUS ALERT TERMINATION OCCURS, WITH EOT=1. 


A SKIP TAPE MARKS REVERSE COMMAND IS ISSUED, AND IT IS CHECKED 
THAT TAPE STATUS ALERT TERMINATION OCCURS WITH EOT=1, AND TMK=1. 


A SPACE RECORDS REVERSE COMMAND, WITH A RECORD COUNT OF 1, IS 
ISSUED, AND IT IS CHECKED THAT TAPE STATUS ALERT TERMINATION 
OCCURS, WITH EOT=1, AND TMK=1. 


A SPACE RECORDS REVERSE COMMAND, WITH A RECORD COUNT OF 1, IS 
+ oe gag AND IT IS CHECKED THAT NORMAL TERMINATION OCCURS WITH 
EOT=1. 


A SPACE RECORDS FORWARD COMMAND, WITH A RECORD COUNT OF 1, IS 
he AND IT IS CHECKED THAT NORMAL TERMINATION OCCURS, WITH 
EOT=1. 


A READ REVERSE COMMAND IS ISSUED, AND IT IS CHECKED THAT NORMAL 
TERMINATION OCCURS WITH EOT=1. 


- A READ FORWARD COMMAND IS ISSUED, AND IT IS CHECKED THAT NORMAL 


TERMIANTION OCCURS, WITH EOT=1. 


- A SPACE RECORDS REVERSE COMMAND, WITH A RECORD COUNT OF 3, IS 


ISSUED, AND IT CHECKS THAT NORMAL TERMINATION OCCURS WITH EOT=0. 


. A SPACE RECORDS FORWARD COMMAND WITH A RECORD COUNT OF 3 IS 


hn egg AND IT IS CHECKED THAT NORMAL TERMINATION OCCURS WITH 
E0T=1. 


A REWIND COMMAND IS ISSUED TO RETURN TO BOT. 





SEQ 0018 
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000000 


000000 


002000 
002000 


002000 
002000 
002000 
002000 
002001 
002002 
0C2003 
002004 
002005 
002006 
002007 
002010 
002010 
002011 
002011 
002012 
002012 
002014 
002014 
002016 
002016 
002020 
002020 
002022 
002022 
002024 
002024 
002026 
002026 
002030 
002030 
002032 
002032 
002034 
002034 
002036 
002036 
002040 
002040 


\ 


002000 


060 
000001 
001217 
060214 
060354 
002124 
002134 
060600 
000000 
000000 
000000 
000000 
060562 
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-SBTTL PROGRAM HEADER 
-MCALL SVC 


svc 


-ENABLE LC 


-NLIST BEX,CND 
-ENABL AMA,ABS 


- = 2000 


; INITIALIZE SUPERVISOR MACROS 


BGNMOD TUV2A 


TUV2A:: 


3++ 


; THE PROGRAM HEADER IS THE INTERFACE BETWEEN 
; THE DIAGNOSTIC PROGRAM AND THE SUPERVISOR. 


POINTER BGNSW,BGNSFT ,BGNAU,BGNDU,BGNRPT , BGNSETUP 


HEADER 
LS$NAME:: 

ASCII 

- ASCII 

- ASCII 

- ASCII 

- ASCII 

-BYTE 

-BYTE 

.BYTE 
LSREV:: 

ASCII 
L$DEPO:: 

ASCII 
LS$UNIT:: 

.WORD 
L$TIML:: 

. WORD 
L$HPCP:: 

. WORD 
L$SPCP:: 

. WORD 
L$HPTP:: 

. WORD 
L$SPTP:: 

. WORD 
L$LADP:: 

WORD 
LS$STA:: 

. WORD 
L$CO:: 

WORD 
LSDTYP:: 

. WORD 
LSAPT:: 

. WORD 
L$DTP:: 

. WORD 


CZTKH,B,0,655. ,0 
sDIAGNOSTIC NAME 


/C/ 
42/ 
/T/ 
/K/ 
/H/ 
0 
0 
0 
sREVISION LEVEL 
/B/ 
30 
/0/ 
sNUMBER OF UNITS 
TS$PTHV 
sLONGEST TEST TIME 
655. 
sPOINTER TO H.W. QUES. 
L$HARD 
sPOINTER TO S.W. QUES. 
L$SOFT 
:PTR. TO DEF. H.W. PTABLE 
LS$HW 
:PTR. TO S.W. PTABLE 
L$Sw 
;DIAG. END ADDRESS 
L$LAST 
‘ RESERVED FOR APT STATS 
0 
5 s;DIAGNOSTIC TYPE 
. ;APT EXPANSION 


sPTR. TO DISPATCH TABLE 
L$DISPATCH 


SEQ 0019 
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PROGRAM HEADER SEQ 0020 
002042 L$PRIO:: sDIAGNOSTIC RUN PRIORITY 
002042 000000 -WORD 0 
002044 LSENVI:: sFLAGS DESCRIBE HOW IT WAS SETUP 
002044 000000 -WORD 0 
002046 LSEXP1:: sEXPANSION WORD 
002046 000000 -WORD 0 
002050 LS$MREV:: 3SVC REV AND EDIT # 

002050 003 -BYTE C$REVISION 
002051 003 -<BYTE CSEDIT 
002052 LSEF:: ;DIAG. EVENT FLAGS 
002052 000900 -WORD O 
002054 000000 -WORD O 
002056 L$SPC:: 
002056 000000 -WORD 0 
002060 L$DEVP:: ; POINTER TO DEVICE TYPE LIST 
002060 003340 -WORD LS$DVTYP 
002062 LSREPP:: ;PTR. TO REPORT CODE 
002062 023060 -WORD LS$RPT 
002064 LSEXP4:: 
002064 000000 -WORD 0O 
002066 LSEXPS:: 
002066 000000 -WORD 0 
002070 L$AUT:: :PTR. TO ADD UNIT CODE 
002070 022552 -WORD L$AU 
0C2072 LS$DUT:: 3PTR. TO DROP UNIT CODE 
002072 022650 -WORD LS$DU 
002074 L$LUN:: ;LUN FOR EXERCISERS TO FILL 
002074 000000 -WORD 0O 
002076 L$DESP:: sPOINTER TO DIAG. DESCRIPTION 
002076 003346 -WORD LS$DESC 
002100 L$LOAD:: ;GENERATE SPECIAL AUTOLOAD EMT 
002100 104035 EMT E$LOAD 
002102 LSETP:: sPOINTER TO ERRTBL 
002102 000000 -WORD 0 
002104 LSICP:: sPTR. TO INIT CODE 
002104 021766 -WORD L$INIT 
002106 LSCCP:: ;PTR. TO CLEAN-UP CODE 
002106 023032 -WORD LS$CLEAN 
002110 LSACP:: sPTR. TO AUTO CODE 
002110 022756 -WORD LS$AUTO 
002112 L$PRT:: ;PTR. TO PROTECT TABLE 
002112 021756 -WORD L$PROT 
002114 LS$TEST:: ;TEST NUMBER 
002114 000000 -WORD O 
002116 LS$DLY:: ;DELAY COUNT 
002116 000000 -WORD O 
002120 L$HIME:: 3PTR. TO HIGH MEM 
002120 000000 -WORD 0 

> 
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DEFAULT HARDWARE P-TABLE SEQ 0021 
701 -SBTTL DEFAULT HARDWARE P-TABLE 
702 
703 pee 
704 ; THE DEFAULT HARDWARE P-TABLE CONTAINS DEFAULT VALUES OF 
705 ; THE TEST-DEVICE PARAMETERS. THE STRUCTURE OF THIS TABLE 
be ; IS IDENTICAL TO THE STRUCTURE OF THE RUN-TIME P-TABLE. 
0 g=- 
708 002122 BGNHW DFPTBL ;DEFAULT HARD-P-TABLE 
002122 000003 -WORD L10000-L$HW/2 
002124 LSHW:: 
_ 002124 DFPTBL:: 
710 002124 172522 -WORD 172522 ; 2ND COF 2) REGISTERS. 
711 002126 000224 «WORD 224 ; INTERRUPT VECTOR 
712 002130 000240 -WORD PRIOS ; INTERRUPT PRIORITY. 
713 002132 ENDHW 
002132 L10000: 





CZTKHB TK-25 FRT END FUNC #4 
SOFTWARE P-TABLE 
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SEQ 0022 


715 -SBTTL SOFTWARE P-TABLE 
716 
717 pee 
718 ; THE SOFTWARE P-TABLE CONTAINS THE VALUES OF THE PROGRAM 
719 ; PARAMETERS THAT CAN BE CHANGED BY THE OPERATOR. 
720 $-- 
721 002132 BGNSW SFPTBL 
002132 000005 «WORD L10001-L$SW/2 
002134 L$SW:: 
708 002134 SFPTBL:: 
723 002134 000000 TRANSTST:: -WORD O sENABLE RAM DUMP IF =1 
724 002136 000000 NOITS:: -WORD 0O ; INHIBIT ITERATION OPTION. 
725 3; --. O = ITERATE. 
Lew ; ..-NZ = INHIBIT ITERATE. 
2 
728 002140 000000 EOTSEL:: -WORD 0O ;“INHIBIT EOT CHECKING CREDUCES TEST TIME 
729 ;BY ABOUT 22 MINUTES” 
730 002142 000031 LERRMAX:: -WORD 25. ; LOCAL (PER TEST) ERROR LIMIT 
731 002144 000310 GERRMAX: : «WORD 200. ; GLOBAL (PER UNIT) ERROR LIMIT 
732 002146 ENDSW 
_ 002146 L10001: 
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SOFTWARE P-TABLE SEQ 0023 
736 : 
ra5 -SBTTL GLOBAL EQUATES SECTION 
4 
754 
755 
756 
757 -SBTTL GLOBAL EQUATES SECTION 
758 
759 3+4 
760 ; THE GLOBAL EQUATES SECTION CONTAINS PROGRAM EQUATES THAT 
Le ; ARE USED IN MORE THAN ONE TEST. 
6 ied 
763 
767 002146 EQUALS ; GET STANDARD EQUATES. 
H 
; BIT DIFINITIONS 
100000 BIT15== 100000 
040000 BIT14== 40000 
020000 BIT13== 20000 
010000 BIT12== 10000 
004000 BIT11== 4000 
002000 BIT10== 2000 
001000 BITO9== 1000 
000400 BITO8== 400 
000200 BITO7== 200 
000100 BITO6== 100 
000040 BITOS== 40 
000020 BIT04== 20 
000010 BITO3== 10 
000004 BITO2== 4 
000002 BITO1== 2 
000001 BITOO== 1 
001000 BIT9== BITO9 
000400 BIT8== BITO8 
000200 BIT7== BITO7 
000100 BIT6== BITO6 
000040 BITS== BITOS 
000020 BIT4== BITO4 
000010 BIT3== BITO3 
000004 BIT2== BITO2 
000002 BIT1i== BITO1 
000001 BITO== BITOO 


; 
; EVENT FLAG DEFINITIONS 
; EF32:EF17 RESERVED FOR SUPERVISOR TO PROGRAM COMMUNICATION 


i 
000040 EF .START== 32. ; START COMMAND WAS ISSUED 
000037 EF .RESTART== 31. s RESTART COMMAND WAS ISSUED 
000036 EF .CONTINUE== 30. ; CONTINUE COMMAND WAS ISSUED 
000035 EF .NEW== 29. ; A NEW PASS HAS BEEN STARTED 
000034 EF .PWR== 28. s A POWER-FAIL/POWER-UP OCCURRED 


i 
; PRIORITY LEVEL DEFINITIONS 
; 
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GLOBAL EQUATES SECTION SEQ 0024 
000340 PRIO7== 340 
000300 PRIO6== 300 
000240 PRIOS== 240 
000200 PRI04== 200 
000140 PRIO3== 140 
000100 PRIO2== 100 
000040 PRIO1== 40 
000000 PRIOO== 0 
; 
sOPERATOR FLAG BITS 

000004 EVL== 4 
000010 LOT== 10 
000020 ADR== 20 
000040 IDU== 40 
000100 ISR== 100 
000200 UAM== 200 
000400 BOE== 400 
001000 PNT== 1000 
002000 PRI== 2000 
004000 IXE== 4000 
010000 IBE== 10000 
020000 IER== 20000 
040000 LOE== 40000 

_ 100000 HOE== 100000 

769 002146 KTi1 sDEFINE MEMORY MANAGEMENT REGISTERS 


-SBTTL MEMORY MANAGEMENT DEFINITIONS 
;*KT11 VECTOR ADDRESS 


000250 MMVEC= 250 
s*KT11 STATUS REGISTER ADDRESSES 
177572 SRO= 177572 
177574 SR1i= 177574 
177576 SR2= 177576 
172516 SR3= 172516 
-IF NB 


;#USER "I" PAGE DESCRIPTOR REGISTERS 
UIPDRO= 177600 
UIPOR1= 177602 
UIPDR2= 177604 
UIPDR3= 177606 
UIPDR4= 177610 
UIPORS= 177612 
UIPDR6= 177614 
UIPDR7= 177616 
-IF NB 
s#USER “D” PAGE DESCRIPTOR REGISTORS 
UDPDRO= 177620 
UDPOR1= 177622 
UDPDR2= 177624 
UDPDR3= 177626 
UDPDR4= 177630 
UDPORS= 177632 
UDPDR6= 177634 
UDPOR7= 177636 


-ENDC 
s#USER “I” PAGE ADDRESS REGISTERS 


—— 
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UIPARO= 177640 
UIPARi= 177642 
UIPAR2= 177644 
UIPAR3= 177646 
UIPAR4= 177650 
UIPARS= 177652 
UIPAR6= 177654 
UIPAR7= 177656 
-IF NB 

s#USER “D” PAGE ADDRESS REGISTERS 
UDPARO= 177660 
UDPAR1= 177662 
UDPAR2= 177664 
UDPAR3S= 177666 
UDPAR4= 177670 
UDPARS= 177672 
UDPAR6= 177674 
UDPAR7= 177676 


.IF NB 

s*SUPERVISOR “I” PAGE DESCRIPTOR REGISTERS 
SIPDRO= 172200 

SIPORi= 172202 

SIPDR2= 172204 

SIPDR3= 172206 

SIPOR4= 172210 

SIPORS= 172212 

SIPDR6= 172214 

SIPDR7= 172216 


-IF NB 

s*SUPERVISOR “D” PAGE DESCRIPTOR REGISTERS 
SDPDRO= 172220 

SDPDR1= 172222 

SOPDR2= 172224 

SDPDR3= 172226 

SDPDR4= 172230 

SDPORS= 172232 

SDPOR6= 172234 

SDPOR7= 172236 


-ENDC 

s*#SUPERVISOR “I” PAGE ADDRESS REGISTERS 
SIPARO= 172240 

SIPARi= 172242 

SIPAR2= 172244 

SIPAR3= 172246 

SIPAR4= 172250 

SIPARS= 172252 

SIPAR6= 172254 

SIPAR7= 172256 


-IF NB 

;#SUPERVISOR “D” PAGE ADDRESS REGISTERS 
SDPARO= 172260 

SDPAR1= 172262 

SDPAR2= 172264 

SDPAR3= 172266 

SDPAR4= 172270 


SEQ 0025 
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SDPARS= 172272 
SDPAR6= 172274 
SOPAR7= 172276 


-ENDC 

-ENOC 

s#KERNEL “I” PAGE DESCRIPTOR REGISTERS 
172300 KIPDRO= 172300 
172302 KIPOR1= 172302 
172304 KIPOR2= 172304 
172306 KIPOR3= 172306 
172310 KIPOR4= 172310 t 
172312 KIPORS= 172312 
172314 KIPOR6= 172314 
172316 «et 172316 


s#KERNEL “D” PAGE’ 
DESCRIPTOR REGISTERS 
KDPDRO= 172320 
KDPOR1= 172322 
KDPOR2= 172324 
KDPOR3= 172326 
KDPOR4= 172330 
KDPORS= 172332 
KDPOR6= 172334 
KOPOR7= 172336 


-ENDC 
s*KERNEL “I” PAGE ADDRESS REGISTERS 
172340 KIPARO= 172340 
172342 KIPARi= 172342 
172344 KIPAR2= 172344 
172346 KIPAR3= 172346 
172350 KIPAR4= 172350 
172352 KIPARS= 172352 
172354 KIPAR6= 172354 
172356 a 172356 


s*KERNFL “D” PAGE ADDRESS REGISTERS 
KDPARO= 172360 

KDPAR1= 172362 

KOPAR2= 172364 

KDPAR3S= 172366 

KDPAR4= 172370 

KDPARS= 172372 

KDPAR6= 172374 

KDPAR7= 172376 

-ENDC 


— 
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TK-25 REGISTER AND PACKET DEFINITIONS SEQ 0027 
Lae -SBTTL TK-25 REGISTER AND PACKET DEFINITIONS 
776 Hy 
777 ; SOME GENERAL EQUATES. 
778 3 
779 
780 000004 ERRVEC== 4 s POINTER TO ERROR VECTOR FOR BUS TIME OUT. 
781 TTIVEC== 60 : INTERRUPT VECTOR FOR CONSOLE INPUT 
782 177560 TTICSR== 177560 ; BUS ADDRESS OF CONSOLE INPUT 
1.5 177562 TTIBFR== 177562 ; CONSOLE INPUT DATA BUFFER 
785 3° 
Lg sBIT DEFINITIONS FOR TSSR REGISTER 
| Te 

788 
789 100000 Sc= BIT15 sSPECIAL CONDITION 
790 040000 BIE= BIT14 3BUS INTERFACE ERROR 
791 020000 SCE= BIT13 sSANITY CHECK ERROR 
792 010000 RMR= BITi2 sMODIFICATION REFUSED 
793 004000 NXM= BITi1 sNONEXISTANT MEMORY ERROR 
? 002000 NBA= BIT10 sNEED BUFFER ADDRESS 
795 001400 HIADDR= BIT9!BITS sEXTENDED ADDRESS BITS 
796 000200 SSR* BIT7 ;SUB SYSTEM READY 
797 000100 OFL= BIT6 3;OFF LINE BIT 
798 000060 FATERR= BIT4!BITS sFATAL TERMINATION ERROR CODES 
a 000016 TERCLS= BIT3!BIT2!:BIT1 s TERMINATION CODES 
601 
802 3° 
803 H 
804 :BIT DEFINITIONS FOR EXTENDED STATUS REGISTER 0 
805 3:(XSTO) 
806 3 
807 3- 
808 
809 100000 XSOTMK= BITi5 sTAPE MARK DETECTED 
810 040000 XSORLS= BIT14 sRECORD LENGTH SHORT 
811 020000 XSOLET= BIT13 sLOGICAL END OF TAPE 
812 010000 XSORLL= BIT12 sRECORD LENGTH LONG 
813 004000 XSOWLE= BITi1 sWRITE LOCK ERROR 
814 002000 XSONEF= BIT10 sNON EXECUTABLE FUNCTION 
815 001000 XSOILC= BIT9 sILLEGAL COMMAND 
816 000400 XSOILA= BITS ;ILLEGAL ADDRESS 
817 000200 XSOMOT= BIT7 :TAPE IN MOTION 
818 000100 XSOONL= BIT6 s TRANSPORT ON LINE 
619 000040 XSOIE= BITS sINTERRUPT ENABLE 
820 000020 xSOVCK= BIT4 sVOLUME CHECK BIT 
621 000010 XSOPED= BIT3 sPHASE ENCODED DRIVE 
822 000004 XSOWLK= BIT2 sWRITE LOCKED 
823 000002 XSOBOT= BIT1 sBEGINNING OF TAPE 
os 000001 XSOEOT= BITO sEND OF TAPE 
826 
827 3¢ 
828 ;BIT DEFINITIONS FOR EXTENDED STATUS REGISTER 1 
+H 3(XST1) 

0 s* 


See DA eo eas oe ee ——S ee 
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SEQ 0028 


TK-25 REGISTER AND PACKET DEFINITIONS 
831 100000 X1.0LT = BITI5 sDATA LATE 
832 040000 X1.SPARE= BIT14 sNOT USED 
833 020000 X1.COR = BIT13 sCORRECTABLE DATA ERROR 
834 017375 X1.MBZ = BIT12+BIT11+B1T10+BIT9+B1T7+B1T6+BITS+BIT4+BIT3+BIT2+BITO sALWAYS O 
835 000400 X1.RBP = BITS sREAD BUS PARITY ERROR 
Hs 000002 X1.UNC = BITL sUNCORRECTABLE DATA OR HARD ERROR 
838 3° 
839 sBIT DEFINITIONS FOR EXTENDED STATUS REGISTER 2 
oat :(xST2) 
,= 
842 100000 X2.0PM = BITI5 s;OPERATION IN PROGRESS (TAPE MOVING) 
843 040000 X2.RCE = BIT14 ;RAM CHECKSUM ERROR 
844 035400 X2.SPARE= BIT13+BIT12+-BIT11+BIT9-BITS sNOT USED BY TK-25 (ALWAYS=0) 
845 002000 X2.WCF = BIT10O sWRITE CLOCK FAILURE (FIFO NOT EMPTIED BY TRANSPORT) 
846 000200 X2.EXTF = BIT7 sIF WRITE CHAR CMD THEN = EXTENDED FEATURES ENABLED 
847 000100 X2.BUFE = BIT6 sIF WRITE CHAR CMD THEN = BUFFERING ENABLED 
848 000077 X2.REV = 000077 sIF WRITE CHAR CMD THEN = MICROCODE REVISION LEVEL 
ioe 000007 X2.UNIT = BIT2+BIT1+BITO sIF GET STATUS THEN = CURRENTLY SELECTED UNIT NO. 
851 3¢ 
852 sBIT DEFINITIONS FOR EXTENDED STATUS REGISTER 3 
aaa 3(XST3) 
854 3- 
855 177400 X3.MDE = 177400 sMICRO-DIAGNOSTIC ERROR CODE 
856 000200 - X3.SPARE= BIT7 sNOT USED BY TK-25 
857 000100 X3.0PI = BIT6 sOPERATION INCOMPLETE 
658 000040 X3.REV = BITS sREVERSE 
859 000020 X3.TRF = BIT4 s TRANSPORT RESPONSE FAILURE 
860 000010 X3.0CK = BIT3 sDENSITY CHECK 
861 000006 X3.MBZ =BIT2-BIT1i sNOT USED ALWAYS 0 
34 000001 X3.RIB = BITO sREVERSE INTO BOT 
86 
864 3° 
865 sBIT DEFINITIONS FOR EXTENDED STATUS REGISTER 4 
866 3(XST4) 
867 3° 
868 100000 X4.HSP = BIT1I5 sHIGH SPEED 
869 040000 X4.RCE = BIT14 sRETRY COUNT EXCEEDED 
870 020000 X4.TSM = BITI3 s TRANSPORT SPECIAL MODE 
871 017400 X4.MBZ = BIT12-BIT11+BIT10+BIT9+BITS ;NOT USED ALWAYS 0 
o76 000377 X4.WRC = 000377 sWRITE RETRY COUNT FIELD 
874 
875 :¢ 
876 3 
877 ;TSSR TERMINATION CODES (BIT 0-2) 
878 3 
879 $° 
880 
881 000006 TSREJ= 342 sCOMMAND REJECTED 
3) 000006 UNREC= 6 sUNRECOVERABLE ERROR 
884 Hid 
885 3 
+4 sDEVICE REGISTER OFFSETS 
3 
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TK-25 REGISTER AND PACKET DEFINITIONS 


888 
889 
890 177776 
891 177776 
892 177776 
893 177776 
894 177777 
895 177777 
896 000000 
897 000001 
898 
899 
900 
901 
902 000003 
903 
904 
905 
906 
907 000017 
908 000013 
909 000012 
910 000011 
911 000010 
912 000006 
913 000005 
914 000004 
915 000001 
916 
917 
918 
919 
920 100000 
921 040000 
922 020000 
923 010000 
924 007400 
925 000200 
926 000140 
927 000037 
928 
929 
930 
931 000000 
932 000400 
933 001000 
934 002000 
935 002400 
936 
937 
938 
939 
940 000167 
941 000200 
942 000020 
943 000027 
944 000104 


Keine Cn ae eo ee Dae 





TSBAs= -2 
TSBAL== -2 
TSOB== -2 
TSOBL== -2 
TSBAH== -1 
TSDBH== -1 
TSSR== 0 

TSSRH== 1 


3* 

; TSOB ADDRESS BIT DEFINITIONS 
ge 

A1716 == BIT1+BITO 


3¢ 
; COMMAND DEFINITIONS 


H 

P.GETSTAT = 17 
P. INIT * 13 
P. CONTROL = 12 
P. FORMAT © ti 
P.POSITION = 10 
P.WRTSUB = 6 

P. WRITE a) 

P.WRTCHAR = 4 

P.READ «i 


sTSOB/TSBA REGISTER 
sTSDB/TSBA REGISTER 


;TSOB/TSBA REGISTER HIGH BYTE 
sTSSR REGISTER 
sTSSR REGISTER HIGH BYTE 


sADDRESS BITS 17;16 ARE IN 1;0 


;GET STATUS 

s INITIALIZE 

sCONTROL COMMANDS 
sFORMAT 

sPOSITION 

sSUBSYSTEM WRITE 
sWRITE 

sWRITE CHARACTERISTICS 
;READ 


7+ 
; COMMAND PACKET HEADER WORD BIT DEFINITIONS 


P.ACK = BIT15 


P.CvC = BIT14 
P.OPP = BIT13 
P.SWB = BIT12 
P.MODE = BIT11!BIT10!B1IT9!BITS 
P.IE = BIT7 
P.FMT= BIT6!BITS 
P.O) = 37 

3¢ 

; CONTROL COMMAND MODE CODES 
PC .RELEASE = 0#256. 
PC .REWIND = 14*256. 
PC .NOOP = 24256. 
PC. IEREW = 44256. 
PC .ERASE = 5#256. 


3* 
; CONTROLLER RAM DEFINITIONS 


RMCHBEG = 167 
RMCHEND = 200 
RMPKTBEG= 20 
RMPKTEND= 27 
RMMSGBEG= 104 


- 


sBUFFER AVAIL FOR CONTROLLER 
sCLEAR VOLUME CHECK 

sREVERSE SEQUENCE OF DATA BITS 
sSWAP BYTES IN MEMORY 
sEXTENDED COMMAND MODE FIELD 

s INTERRUPT ENABLE 

sPACKET HEADER TYPE CALWAYS=0) 
sMAJOR COMMAND FIELD 


sRELEASE BUFFER 

REWIND 

sNO-OP 

sREWIND IMMEDIATE INTERRUPT 
sSECURITY ERASE 


sCHARACTERISTICS I0 DATA BEGIN RAM ADDRESS 
sCHARACTERISTICS IO DATA END RAM ADDRESS 
s;COMMAND PACKET BEGIN RAM ADDRESS 


sCOMMAND PACKET END RAM ADDRESS 


sMESSAGE BUFFER BEGIN RAM ADDRESS 






SEQ 0029 
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SEQ 0030 













cea 000117 RMMSGEND= 117 sMESSAGE BUFFER END RAM ADDRESS 
6 3¢ 
947 ; 
oe sREGISTER DEFINITIONS IN THE MESSAGE BUFFER 
3 
950 3- 
951 
952 000006 xSTO== 6 sEXTENDED STATUS REGISTER 0 (WORD 4) 
953 000010 xSTi== 8. sEXTENDED STATUS REGISTER 1 (WORD 5) 
954 000012 xST2== 10. sEXTENDED STATUS REGISTER 2 CWORD 6) 
955 000014 xXST3== 12. sEXTENDED STATUS REGISTER 3 CWORD 7) 
ps 000016 XST4== 14, sEXTENDED STATUS REGISTER 4 (WORD 8) 
958 
959 3+ 
960 3 
961 ;OFFSETS TO WORD LOCATIONS IN PACKET DEFINITIONS 
962 3 
963 3° 
964 
965 000002 PKLOW = 2 ;LOW ORDER CHARACTERISTIC DATA POINTER 
966 000004 PKHI = 4 sHIGH ORDER CHARACTERISTIC DATA POINTER 
967 000006 PKBCNT = 6 sNUMBER OF BYTES IN DATA PACKET 
968 
at 000010 EXBCNT=10 sNUMBER OF BYTES IN EXTENDED DATA PACKET 
971 3¢ 
aL :DATA PACKET OFFSETS FOR WRITE SUBSYTEM COMMAND 
9 i= 
974 000000 BSELO = 0 :BYTE 0 
975 000001 BSEL1 =1 ;BYTE 1 
976 000002 SEL2 = 2 sWORD 2 
977 000004 SELDATA = 4 ;WORD 3 
978 
979 3+ 
980 ;BSELO SELECT CODES FOR WRITE SUBSYSTEM COMMAND 
981 3° 
982 000000 PW .NOP = 0 3NO-OP 
983 000001 PW .RDRAM = 1 ;READ RAM 
984 000002 PW .WTRAM = 2 sWRITE RAM 
985 000003 PW.RFIFO = 3 ;READ FIFO 
986 000004 PW.WFIFO = 4 ;WRITE FIFO 
987 000005 PW.RDSTAT = 5 ;READ STATUS 
988 000006 PW.WCTL = 6 sWRITE TAPE CONTROL 
989 000007 PW.WFMT = 7 ;WRITE TAPE FORMAT 
990 000010 PW .WMISC = 10 sWRITE MISCELLANEOUS 
991 000011 PW.WNPR = 11 sWRITE NPR CONTROL 
992 000020 PW .D22 = 20 :D0 MICROTEST 22 
993 000021 PW.D1il = 21 :D0 MICROTEST 11 
994 000022 PW.D13 = 22 3:00 MICROTEST 13 
995 000023 PW.NO1311 = 23 ;DISABLE MICROTEST 11 AND 13 
996 000024 PW .RDEXT = 24 sREAD EXT. TAPE STATUS (NOT SUPPORTED BY ALL TRANSPO 
997 
998 3¢ 
999 ;BSEL1 CODES FOR WRITE TAPE CONTROL 
1000 s° 
1001 000200 WC .IFAD = BIT7 ;IFAD - FORMATTER ADDRESS 


Te Te en 
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TK-25 REGISTER AND PACKET DEFINITIONS SEQ 0031 


ac 


1002 000100 wc .IOTAD = BIT6 sITADO - TRANSPORT ADORESS BIT 0 

1003 000040 WC .I1TAD = BITS sITAD1 - TRANSPORT ADDRESS BIT 1 

1004 000020 WC .ISRESV = BIT4 sIRESVS - RESERVED #@5 

1005 000010 WC .IREW = BIT3 ;IREW - REWIND 

1006 060004 WC .IRWU = BIT2 sIRWU - REWIND AND UNLOAD 

1007 000002 WC .IFEN = BIT! ;IFEN - FORMATTER ENABLE 

1008 000001 WC .IGO = BITO :GO . 

1009 

1010 3¢ 

pee ;BSEL1 CODES FOR WRITE FORMAT 

1013 000200 WF .IHISP = BIT7 ;IHISP - HIGH SPEED 

1014 000100 WF .IWRT = BIT6 sIWRT - WRITE 

1015 000040 WF .IREV = BITS sIREV - REVERSE 

1016 900020 WF .IWFM = BIT4 ;IWFM - WRITE FILE MARK 

1017 000010 WF .IEDIT = BIT3 sIEDIT - EDIT 

1018 000004 WF .IERASE = BIT2 sIERASE - ERASE 

1019 000002 WF .I3RESV = BIT1 sIRESV3 - RESERVED #3 

mH 000001 WF .I4RESV = BITO sIRESV4 - RESERVED #4 

1 

1022 

1023 3¢ 

ioee sBSEL1 CODES FOR WRITE MISCELLANEOUS SUBCOMMAND 

102 s- 

1026 000200 MS .EXT = BIT7 sINVERT SENSE OF EXTENDED FEATURES SWITCH 

1027 000020 MS .RSFIFO = BIT4 sRESET FIFO AND INPUT PARITY ERRORR 

1028 000010 MS .RSTAPE = BIT3 sRESET TAPE STATUS IN 2 FLIP-FLOPS 

1029 000006 MS.ATTN = BIT2!BIT1L sATTENTION TRIGGER FIELD 

eat 000001 MS .RSD = BITO sRESET TIMER A,B THEN DELAY TIMES IN SEL2 

10 3+ 

tose ; MS.ATTN SUBCODES 

10 3° 

1034 000000 MSA.NOP = O«2 sNO-OP CNOTHING TRIGGERED) 

1035 000002 MSA.VOL = 1«2 sSIMULATE ON-LINE/OFF-LINE TRANSISTION 

1036 000004 MSA.NRAM= 242 sFORCE NON-FATAL RAM ERROR (FORCES ERRCODE 54) 

nd 000006 MSA.FRAM= 3«2 sFORCE FATAL RAM ERROR (CAUSES SCE TO SET) 
3? 

pet ; WRITE SUBSYSTEM WRITE NPR BSEL1 BIT DEFINITIONS 

1040 oa 

1041 000200 NP.IR = BIT7 sINTERRUPT REQUEST (0-1 TRANSITION) 

1042 000100 NP .OUT = BIT6 sTAPE DATA DIRECTION OUT (0= IN) 

1043 000040 NP .LOOP = BITS sENABLE TRANSPORT LOOPBACK 

pee} 000020 NP .WRP = BIT4 sWRITE CORRECT PARITY (SET=0 TO WRITE WRONG) 

1 3+ 

1046 ; READ STATUS MESSAGE BUFFER BIT DEFINITIONS 

1047 3° 

1048 

1049 000200 $2.DIM = BIT7 sWORD #9 BYTE 2 DATA IN MISS 

1050 000100 S2.ILW = BIT6 ; ILW H 

1051 000040 S2.0UTRDY = BITS : OUT RDY H 

1052 000020 S2.INRDY = BIT4 ; IN RDY H 

1053 000010 S2.ATIMR = BIT3 ; TIMER A FLAG H 

1054 000004 S2.BTIMR = BIT2 F TIMER B FLAG H 

1055 000003 S2.UNDEF = BITi+BITO ; CUNDEFINED ) 

1056 100000 $1.PARIN = BITi5 ;WORD #8 BYTE 1 PARIN H 

1057 040000 $1. I2RESV = BIT14 ; IRESV2 

1058 020000 $1.I1RESV = BIT13 ; IRESV1i 








rr ge 
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TK-25 REGISTER AND PACKET DEFINITIONS 


1059 010000 
1060 004000 
1061 002000 
1062 001000 
1063 000400 
1064 000200 
1065 000100 
1966 000040 
1067 000020 
1068 000010 
1069 000004 
1070 000002 
1071 000001 
1072 
1073 
1074 177560 
1075 177562 
1076 177564 
1077 177566 
1078 007776 
1079 
1080 
1081 
1082 174400 
1083 174402 
1084 174404 
1085 174406 
1086 
1087 
1088 
1089 
1090 
1091 
1092 
1093 
1094 000004 
1095 000006 
1096 000010 
1097 000014 
1098 000016 
1099 
1100 
1101 
1102 
1103 
1104 
1105 000001 
1106 000013 
1107 177730 
1108 000006 
1109 000177 
1110 100200 
1111 
1112 
1113 
1114 
1115 





$1. IEOT = BIT12 ; IEOT L 
$1. IT IDENT = BITi1 ; IIDENT H 
S1.ICER = BIT10 ; ICER H 
$1. IFMK = BIT9 : IFMK H 
$1.IHER = BITS ; IHER H 
SO.ISPEED = BIT7 sWORD #8 BYTE 0 ISPEED H 
SO.IRDY = BIT6 ; IRDY L 
SO. IONL = BITS ; IONL L 
SO.ILOP = BIT4 ; ILOP L 
SO.IDBY = BITS ; IOBY L 
SO.IRWD = BIT2 ; IRWD L 
SO.IFBY = BIT1 ; IFBY L 
SO.IFPT = BITO ; IFPT L 
; SPECIAL KEYBORD STUFF FOR MOVER PROGRAM 
TKS =177560 sKEYBOARD STATUS REGISTER 
TKB *=177562 sKEYBOARD DATA REGISTER 
TPS #177564 sCONSOLE PRINTER STATUS REGISTER 
TP3 =177566 sCONSOLE PRINTER DATA REGISTER 
HIMEM 2007776 sHIGH MEMORY MASK VALUE 
; CONTROLLER DEFINITIONS 
; 
é 
CSR =174400 sSTATUS AND CONTROL REGISTER 
BAR =174402 sDL ADDRESS REGISTER 
DAR =174404 sPLATTER ADDRESS 
MPR =174406 sMULTIPURPOSE REGISTER 


ee @F ee es as os oe oe 


CONTROLLER COMMANDS 


DLGETS =4 
SEEK =6 
DLRDHD =10 
READ #14 
DLRDNH =16 
a 
1 
H 
: 
H 
READY = 
OLSR #13 
DLERR =177730 
DLUN 56 
DLCYL  =000177 
DLDNER =100200 
: 
; ROMBASE = MOVER 


sGET STATUS COMMAND 

sSEEK TRACK AND HEAD SELECT 
sREAD SECTOR HEADER 

sREAD COMMAND 

sREAD SECTOR NO HEADER CHECK 


sDRIVE READY BIT IN STATUS REG. 
sSTATUS AND RESET 

sMASK FOR COVER OPEN 

sHEADS UNLOADED 

sMASK FOR CYLINDER ADDRESS 
sDONE SET OR ERROR SET BITS 


sSTART OF THE BOOT ROM 99998 

















SEQ 0032 
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TK-25 REGISTER AND PACKET DEFINITIONS 


1116 177560 TTICSR 
1117 177562 TTIBFR 
1118 177564 TTOCSR 
1119 177566 TTOBFR 
1120 





ae a a So ee 


177560 
177562 
177564 
177566 





SEQ 0033 


sKEYBOARD INPUT STATUS 

sKEYBOARD DATA REGISTER 

sCONSOLE PRINTER STATUS REGISTER 
sCONSOLE PRINTER DATA REGISTER 


CZTKHB TK-25 FRT END FUNC 04 
SPECIAL MACROS AND OPDEFS. 





1122 
1123 





SR 
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SEQ 0034 
-SBTTL SPECIAL MACROS AND OPDEFS. 


3* 
sSAVE GENERAL REGS 1 TO 5 


-MACRO SAVREG 
JSR RS ,REGSAV 
-ENDM 


+ 
; MACRO TO FORCE AN ERROR 


‘= 

-MACRO FORCERROR TAG, NOTSSR 

-NLIST 

-IIF NOF LISTALL, .NLIST 

-LIST 

-IF B NOTSSR 

_ MOV TSSRCRS),R1 sREAD TSSR 
MOV FORCER ,FORCER sIS FORCER SET? (LEAVE C BIT ALONE) 
BNE TAG ;BR IF YES 

-NLIST 

-IIF NDF LISTALL, .LIST 

-LIST 

-ENDM 


ed . 

; MACRO TO FORCE AN EXIT TO AVOID SECTION ITERATIONS 

; WILL EXIT TO A LABEL IF FORCER IS NEGATIVE 

; SO TO FORCE ERRORS AND EXIT ON 1 ERROR SET 

; FORCER TO 177777 

i TO FORCE ERRORS AND ITERATIONS SET FORCER TO 1. 


g° 

-MACRO FORCEXIT TAG 

-NLIST 

| A gl LISTALL, .NLIST 
MOV FORCER ,FORCER sIS FORCER NEGATIVE? 
BMI TAG ;BR IF YES 

-NLIST 

-IIF NOF LISTALL, .LIST 

-LIST 

-ENOM 


3¢ 

s MACRO TO INCREMENT ERROR COUNTS 

:- 

-MACRO NEXT.ERRNO 

-NLIST 

333-IIF NDF LISTALL, .NLIST 
ERRNO=ERRNO+1 

:33-IIF NDF LISTALL, .LIST 

-LIST 

-ENDM 


3? 


CZTKHB TK-25 FRT END FUNC 04 
SPECIAL MACROS AND OPDEFS. 


1179 
1180 
1181 
1182 
1183 
1184 
1185 
1186 
1187 
1188 
1189 
1190 
1191 
1192 
1193 
1194 
1195 
1196 
1197 
1198 
1199 
1200 
1201 
1202 





000000 


002146 000000 
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SEQ 0635 


sMACRO TO PERFORM XOR 
= 


-MACRO XOR ; A.B 


BIC A,B 
BIS (SP)+,B 
«END 


EN=0 ; INITIALIZE ERROR NUMBER 
-SBTTL FORCER - FORCE ERROR FLAG 


THE FOLLOWING LOCATIONS MAY BE PATCHED BY THE USER 
TO OBTAIN THE RESULTS DESCRIBED FOR EACH. 


; FORCE TYPE ALL HARD ERRORS ONES CALLED - 
- a THE MACRO “IFERROR"”). AN ERROR NEED NOT - 


FORCER:: 0 
" 
3 XIST, JUST ASSUME AND TYPE THE MESSAGE. 


CZTKHB TK-25 FRT END FUNC 04 





GLOBAL DATA SECTION 
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SEQ 0036 


-SBTTL GLOBAL DATA SECTION 


+e 
sTHE GLOBAL DATA SECTION CONTAINS DATA THAT ARE USED 
sIN MORE THAN ONE TEST. 


; 
;THE FOLLOWING DATA ARE SET FOR EACH UNIT AT INIT TIME. 
sSINGLE UNIT DEFAULTS (LISTED) ARE IN THE DEFAULT P-TABLE. 


EPRTSW:: -WORD 0 sPRINT SWITCH 

UNITN: : -WORD 0 sUNIT # UNDER TEST. 

QVP:: -WORD 0 sQUICK VERIFY FLAG. 

CSRADOR: : -WORD O sADDRESS OF CSR FOR CURRENT DEVICE 
IVEC:: -WORD 224 sINTERRUPT VECTOR 

IPRI:: -WORD PRIO4 sINTERRUPT PRIORITY. 

TSTCNT:: -WORD O sNUMBER OF TESTS RUN IN THIS PASS 
LOOPCNT: -WORD 0 sREMAINING ITERATION COUNT FOR TEST 
DEVCNT: : -WORD 0 sNUMBER OF DEVICE UNDER TEST 

FATFLG:: -WORD O sSET IF FATAL ERROR IS DETECTED IN TEST 
INTRECV -WORD O sSET IF TAPE INTERRUPT WAS RECEIVED 
BENBSW: : -WORD 0 sBUFFER ENABLE SWITCH SW O=OFF;1=0N 
EXPD:: -WORD 0O sEXPECTED RAM DATA FOR PRAMPKT ROUTINE 
RECV:: -WORD 0 sRECEIVED RAM DATA FOR PRAMPKT ROUTINE 
ERRHI: : -WORD 0 sHIGH ADDRESS MEMORY ERROR 

ERRLO: : WORD 0O sLOW ADDRESS MEMORY ERROR 

RAMDATA: : -BLKW 16. sDATA READ FROM RAM PACKET OR MESSAGE BUF AREA 
RAMSIZ:: -WORD 0 sRAM DATA SIZE FOR PRAMPKT ROUTINE 
RCVHIADD: : -WORD O sRECEIVED BUFFER HIGH ADDRESS 

RCVLOADD: : -WORD 0 sRECEIVED BUFFER LOW ADDRESS 

COUNT: : -WORD 0O sTEST COUNT PATTERN 

DATA:: -WORD 0 sTEST DATA 

TSTFLAG: -WORD 0 sTEST FLAG WORD 

TSTPTR:: -WORD O s;TSTBLK POINTER 

PRMNO: : -WORD 0 sPRINT ROUTINE TEMP 

EXPMSG: -BLKB 100 sEXPECTED MESSAGE BUFFER DATA 

RECMSG -BLKB 100 sRECEIVED MESSAGE BUFFER DATA 

TMPBFR: : -BLKB 80. s TEMPORARY STORAGE FOR PRINT 

MESBFA: : -WORD O sSTORES ADDRESS OF MESSAGE BUFFER FOR ERR PRT 
FLLTSW:: -WORD 0 :0=1ST PASS, NON-ZERO= OTHER (FAULT MES) 








CZTKHB TK-25 FRT END FUNC 04 
- TEST DATA TABLE 


TSTBLK 


— 
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SEQ 0037 
-SBTTL TSTBLK - TEST DATA TABLE 
3*¢ 
; 
sTHIS TABLE CONTAINS TEST DATA USED IN SEVERAL TESTS 
; 
sIN SEQUENCE THE DATA IS: 
; 
; ALL ZEROS 
: ALL ONES 
; WALKING ONES 
; WALKING ZEROS 
; ALTERNATING ONES AND ZEROS 
; 
ge 
TSTBLK:; 
-WORD 0 sALL ZEROS 
-WORD 177777 sALL ONES 
-WORD BITO sDATA FOR WALKING ONES 
WORD BIT1i 
WORD 6IT2 
WORD BIT3 
WORD BIT4 
WORD BITS 
WORD BIT6 
WORD BIT7 
WORD BITS 
-WORD BIT9 
-WORD BIT10 
-WORD BIT11 
-WORD BIT12 
-WORD  BIT13 
-WORD BIT14 
-WORD  BITiS 
-WORD ‘tCBITO sDATA FOR WALKING ZEROS 
-WORD ‘ftCBIT1 
-WORD ‘tCBIT2 
-WORD *tCBIT3 
-WORD ‘ftCBIT4 
-WORD *tCBITS 
-WORD *tCBIT6 
-WORD ‘tCBIT7 
-WORD *tCBITS 
-WORD ‘tCBIT9 
-WORD *tCBIT10 
-WORD tCBIT11 
-WORD ‘tCBIT12 
-WORD *tCBIT13 
-WORD *CBIT14 
-WORD ftCBIT1S 
-WORD 125252 sALTERNATING ONES, ZEROS 
oe -WORD 052525 sALTERNATING ONES, ZERO OPPOSITE FROM ABOVE 
TBLEND==. 


CZTKHB TK-25 FRT END FUNC 04 
GLOBAL ENVIRONMENT STORAGE 


- 





003064 
003066 


003070 
003072 
003074 
003076 
003100 
003102 
003104 


003106 
003110 
003112 
003114 
003116 
003120 
003122 
003122 
003124 
003126 
003130 
003132 
003134 


003134 
003334 


003336 





000000 100000 000000 
000000 000000 000000 


000000 
177777 


000000 
000000 


; 
DUMMY : 


DUFLG: : 
NODEV: : 


TEMP1:: 
TEMP2:: 
XXCOMM: : 
FREE: : 

FRESIZ:: 
FREEHI: 
KTFLG:: 
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SEQ 0038 


-SBTTL GLOBAL ENVIRONMENT STORAGE 
5 

sSTORAGE FOR DEVICE REGISTERS 

0,100000,0,0 


0,0,0,0,0,0,0,0 


KTENABLE: : 


PST32W:: 


CTABE: 


;ERROR STATISTICS TABLE 


i 
ERTABL: 
ERTABE: 


SKIPT: 


0 
100000 


10XXXX 
160000 
160001 
14XXXX 





sDUMMY DEVICE REGISTERS... 
3...-FOR MULTI-UNIT CHECKOUT. 


s"DROPPED UNIT” FLAG. 
sINHIBITS CODE IN “CLEAN-UP”. 
sFLAG TO SAY NO DEVICE. 


sSOME TEMP LOCATIONS. 


sXXDP+ COMM BLOCK POINTER. 

31ST FREE MEMORY ADDRESS... 

3...AND SIZE CIN WORDS). 

sLAST WORD IN FREE SPACE 

sKT11, MEM AVAIL FLAG - 

s- .WORD 0 = <24K OR NO KT - 

s- NZ = >24K AND KT. 

sSET BY TEST ROUTINES TO FLAG >28K UNDER TEST 
332W BLOCK ADDRESS FOR 32K START 


; 
sACTUAL DATA 
sEXPECTED DATA 


sCONFIGURATION TABLES. 
sCONFIG WORK. 


ocoooooo co o 


So 
s 


1'oooo oooono 


1 sEND OF MEM TABLE. 
(1 WORD PER UNIT), 64 UNITS MAX: 


UNIT NOT TESTED 

UNIT ONLINE, NO ERRORS 

UNIT ONLINE, ENCOUNTERED XXXX ERRORS 

UNIT DROPPED, NON-EXISTENT DEVICE REGISTER 
UNIT DROPPED, NOT IDLE AT START 

UNIT DROPPED, ENCOUNTERED XXXX ERRORS 


s1=SKIP SUBTEST O=NO SKIP OF SUBTEST 





CZTKHB TK-25 FRT END FUNC 04 
GLOBAL TEXT MESSAGES 


1364 003340 
003340 
003340 


1369 003346 
003346 
003346 


1400 003722 
1401 003762 


124 


103 


113 


132 
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055 


124 





-SBTTL GLOBAL TEXT MESSAGES 
3+ 


; THE GLOBAL TEXT SECTION CONTAINS FORMAT STATEMENTS, 
s MESSAGES, AND ASCII INFORMATION THAT ARE USED IN 

s MORE THAN ONE TEST. 

gee 


3+ 
sNAMES OF DEVICES SUPPORTED 
g@ 


DEVTYP <TK-25> 


LSOVTYP:: 
-ASCIZ /TK-25/ 
-EVEN 

3*¢ 

sTEST DESCRIPTION 

Learer DESCRIPT <CZTKHB TK-25 FRT END FUNC @4> 
-ASCIZ /CZTKHB TK-25 FRT END FUNC @4/ 
-EVEN 

3¢ 

sBIT TO ASCII CONVERSION FOR TSSR REGISTER 

i7 

TSSRBIT: ; _ «WORD 1$,28,3%,4%,58,6%,7$,8$ 

-WORD 9%,10$,11$,12$,13$,14$,15$,16$ 

1$ ASCIZ ‘SC’ 

2$ ASCIZ ‘BIE’ 

3$ ASCIZ ‘SCE' 

4s ASCIZ ‘RMR‘ 

5$ ASCIZ ‘NXM' 

6$ ASCIZ ‘NBA‘ 

7$ ASCIZ ‘BIT9' 

8$ ASCIZ ‘BIT8' 

9$: ASCIZ ‘SSR‘ 

10$ ASCIZ ‘OFL' 

11$ ASCIZ ‘BITS’ 

12$ ASCIZ ‘BIT4' 

13%; ASCIZ ‘BIT3' 

14% ASCIZ ‘BIT2' : 

15$ ASCIZ ‘BIT1i' 

16% ASCIZ ‘BITO' 
-EVEN 

SFIERR: .ASCIZ ‘TSSR ERROR AFTER SOFT INIT‘ 


SFHERR: .ASCIZ ‘TSSR ERROR AFTER BUS RESET’ 

NXR: -ASCIZ / NON-EXISTANT DEVICE REGISTER/ 

NXRX:;  .ASCIZ /#A ADDRESS: #06/ 

TSSX: .ASCII /#A TSBA,TSSR EXP'D: S068A,8068N/ 
-ASCIZ /A TSBA,TSSR REC'D: s068A,806/ 





SEQ 0039 
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GLOBAL TEXT MESSAGES 


1402 004021 045 116 045 FUSI: -ASCII 
1403 0094025 040 040 125 USI: -ASCIZ 
1404 004054 040 040 111 NSI: -ASCIZ 
1405 004117 045 116 045 FNOINTR: 

1406 004123 040 040 116 NOINTR: .ASCIZ 
1407 004160 040 040 111 IFAULT: .ASCIZ 
1408 004202 045 101 040 INTX -ASCIZ 
1409 004237 040 040 042 NOINIT: .ASCIZ 
1410 004311 040 040 042 NSINIT: .ASCIZ 
vas 004361 040 040 042 BRINIT: .ASCIZ 
1413 004431 000 NUL : -ASCIZ 
1414 004432 045 116 000 NULCR: .ASCIZ 
1415 004435 045 101 040 EXPGOT: .ASCIZ 
1416 004471 045 116 045 EXPGT2: .ASCIZ 
1417 004545 045 101 040 DUADI2: .ASCIZ 
1418 004647 122 101 115 PKTRAM:;: 

1419 004715 040 040 103 SCME: -ASCIZ 
1420 004760 127 122 111 WRTMSG: .ASCIZ 
1421 005015 i24 123 123 WRTERR: .ASCIZ 
1422 005110 124 123 123 RDERR: .ASCIZ 
1423 -EVEN 
1424 

1425 

1426 


SEQ 0040 


/SNSA/ 

/ UNEXPECTED INTERRUPT/ 

/ INTERRUPT EXPECTED, NOT RECEIVED/ 

«ASCII /SNSA/ 

/ NO INTERRUPT WAS GENERATED/ 

/ INTERRUPT FAULT/ 

/@A CPU PC: S068A TSBA: #06/ 

/ “BUS-INIT” DIDN'T INITIALIZE CONTROLLER/ 
/ “SOFT-INIT” DION’ T INITIALIZE THE DPU/ 

/ “BUS-RESET” DION’ T INITIALIZE THE DPU/ 


4/ 

/&N/ 

/#A EXP'D: SO068A, REC'D: #06/ 

/SNSA EXP'D: SO06SA, SO6SNSA REC'D: SOSA, 806/ 

/#A REGCW) WRITTEN TO: 068A REG(R) READ; EXP’'D: 068A, REC'D: 806/ 
-ASCIZ ‘RAM Contents Do Not Match Packet Sent’ 

4 CONFIG DOESN'T MATCH MFG. MASTER/ 

‘WRITE CHARACTERISTICS Failed’ 

‘TSSR Incorrect After WRITE Command, More Bits Set Than SSR’ 

‘TSSR Incorrect After READ Command, More Bits Set Than SSR’ 








ZTKMB TK-25 FRT END FUNC 04 
GLOBAL ERROR REPORT SECTION 


1428 
1429 
1430 
1431 
1432 
1433 
1434 
1435 
1436 


1437 


1438 
1439 


1440 
1441 
1442 
1443 
1448 
1445 
1446 
1447 
1448 
1449 
1450 


1451 


013746 
012746 
012746 
010600 
104415 
062706 
004737 


104423 


003066 
003701 
000002 


000006 
005234 


177770 


004432 
000001 


000004 





ce 
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-SBTTL GLOBAL ERROR REPORT SECTION 


3ee 

+ THE GLOBAL ERROR REPORT SECTION CONTAINS THE PRINTB AND PRINTX 
; CALLS THAT ARE USED IN MORE THAN ONE TEST. 

s ASCII TEXT STRINGS ARE FOUND IN THE GLOBAL TEXT SECTION. 

geo 


— BGNMSG NXRERR sNON-EXISTANT DEVICE REGISTER. 
x 38 
PRINTX @NXRX,NODEV sNODEV = NEXM ADDRESS. 
MOV NUDEV, -( SP) 
MOV ONXRX, -C SP) 
MOV @2,-C(SP) 
MOV SP RO 
TRAP CSPNTX 
AOD 06 ,SP 
JSR PC .EXTEND ; PRINT EXTENSION IF REQUIRED. 
ENDMSG 
L10002: 
TRAP CS$MSG 


; 
s THIS ROUTINE APPENDS A UNIQUE EXTENSION (IF REQUIRED) 
; TO ANY OF THE ABOVE ERROR SIGNATURES. 


; 
EXTEND: TST (PC)-+ 


EXTA: 0 s © = NO EXTENSION. 

BEQ 1$ 

JSR PC ,.@EXTA 3 APPEND EXTENSION TEXT. 
it: PRINTX #NULCR + PRINT A BLANK LINE 


MOV @NULCR, -(SP) 


MOV SP ,RO 
TRAP CSPNTX 
ADD #4 ,SP 
RTS PC 





SEQ 0041 
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PRITSSR - PRINT TSSR CONTENTS 
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ce 


SEQ 0042 


py -SBTTL PRITSSR - PRINT TSSR CONTENTS 
1 
1456 ** 
1457 Fy 
1458 sROUTINE TO DISPLAY THE CONTENTS, AND BIT DEFINITIONS, OF 
1459 sTHE TSSR REGISTER. THIS ROUTINE IS NORMALLY CALLED ONLY 
1460 ;BY A MESSAGE PRINTING ROUTINE 
1461 3 
1462 : INPUTS: 
1463 3 
1464 8 R1 CONTENTS OF TSSR 
1465 3 
pty sSUBORDINATE ROUTINES: 
3 
1468 3 CHKAMB CHECK FOR AMBIGUOUS CONTENTS 
1469 3 
1470 3° 
1471 
1472 005270 PRITSSR: 
1473 005270 SAVREG ;SAVE GENERAL REGISTERS 
1474 005274 010104 Vv R1,R4 ;SAVE THE TSSR CONTENTS 
1475 005276 PRINTB #@TSSRFOR,R4 sPRINT THE CONTENTS OF TSSR 
005276 010446 MOV R4,-(SP) 
005300 012746 006112 MOV #TSSRFOR,-(SP) 
0C5304 012746 000002 MOV #2,-(SP) 
005310 010600 MOV SP ,RO 
005312 104414 TRAP CSPNTB 
005314 062706 000006 ADD #6 ,SP 
1476 005320 010400 MOV R4,RO sGET TSSR BACK FOR CHKAMB 
1477 005322 004737 016720 JSR PC ,CHKAMB sARE CONTENTS AMBIGUOUS ? 
1478 005326 103410 BCS 5$ ;BRANCH IF NOT 
1479 005330 PRINTX #AMBTSSR sSHOW CONTENTS ARE AMBIGUOUS 
005330 012746 006332 MOV #AMBTSSR,-(SP) 
005334 012746 000001 MOV #1,-(SP) 
005340 010600 MOV SP ,RO 
005342 104415 TRAP C$PNTX 
005344 062706 000004 ADD #4 ,SP 
1480 005350 010403 5$: MOV R4,R3 sCONTENTS OF TSSR 
1481 005352 042703 001476 BIC #HIADDR!FATERR! TERCLS,R3 ;CLEAR ALL MULTIPLE BIT FIELDS 
1482 005356 001434 BEQ 20$ sNO BITS ARE SET 
1483 005360 012702 002600 MOV #TMPBFR,R2 s TEMPORARY ASCII BUFFER 
1484 005364 012701 003404 MOV #TSSRBIT,R1 sASCII EQUIVALENT OF BITS 
1485 005370 005703 10$: TST R3 sREMAINING BITS TO CONVERT 
1486 005372 001413 BEQ 1i5$ ;BRANCH WHEN ALL ARE DONE 
1487 005374 000241 cLCc ;CLEAR CARRY FOR SHIFT 
1488 005376 006103 ROL R3 ;SHIFT NEXT BIT TO CARRY 
1489 005400 103006 Bcc 13$ s;BRANCH IF BIT NOT SET 
1490 005402 011100 MOV (R1),RO sPOINTER TO BIT DEFINITION 
1491 005404 112022 11$: MOVB (RO)+,(R2)+ sMOVE ASCIZ TO BUFFER 
1492 005406 001376 BNE 11$ sMOVE ALL BITS 
1493 005410 112762 000054 177777 MOVB #',,-1(R2) sINSERT A COMMA TO TERMINATE 
1494 005416 005721 13$: TST (R1i)-+ sPOINT TO NEXT DESCRIPTION 
1495 005420 000763 BR 10$ ;GET THE REMAINING BITS 
1496 005422 105042 15$: CLRB -(R2) sTERMINATE THE LINE 
1497 005424 PRINTX #TSSDEF,#TMPBFR ;PRINT THE BIT DEFINITIONS 
005424 012746 002600 MOV #TMPBFR, -( SP) 
005430 012746 006303 MOV #TSSDEF, -( SP) 











CZTKHB TK-25 FRT END FUNC 04 
PRITSSR - PRINT TSSR CONTENTS 


1498 
1499 
1500 
1501 
1502 


1511 
1512 
1513 
1514 
1515 


1516 
1517 
1518 
1519 
1520 
1521 
1522 
1523 


1524 
1525 
1526 
1527 


005434 
005440 
005442 
005444 


005450 
005452 
005456 
005462 
005462 
005464 
005470 


012746 
010600 
104415 
062706 


010403 
042703 
016303 


010346 


016303 


010346 
012746 
012746 
010600 
104415 
062706 
012737 
010403 
042703 
001411 


010346 
012746 
012746 
010600 
104415 
062706 
022704 
001003 
012737 
005737 
001003 
012737 
013737 


012746 
012746 
010600 
104414 
062706 
012737 
000207 


045 


000002 


000006 


177761 
006374 


006173 
000002 
000006 
177717 


006734 


006234 
000002 


000006 
000031 
176377 


006132 
000002 


000006 
100210 


006021 
002150 


005676 
002150 


005676 
000001 


000004 
005676 


116 


002172 


002150 


002150 
005650 


002150 


045 


208: 


25$: 


30$: 


31$: 


310$: 
32$: 


EPRT1: 


-ASCIZ 


rr 
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#2,-(SP) 
SP ,RO 
CSPNTX 
06 ,SP 


R4,R3 
@tCTERCLS,R3 
TCOCOD(R3) ,R3 
#TCOASC ,R3 
R3,-(SP) 
#TCOASC, -( SP) 
42, -(SP) 


O+CFATERR, R3 
25% 


R3 

R3 

R3 
TSFCOD(R3),R3 
@TFCASC,R3 
R3,-C(SP> 
@TFCASC, -(SP) 
#2,-(SP) 


#25. »FATFLG 
R4, R3 
#+CHIADDR,R3 
30$ 


#TEXASC,R3 

R3,-CSP) 

#TEXASC, -( SP) 
-(SP) 


#100210,R4 
31$ 

#EPRT3 ,EPRTSW 
EPRTSW 

310$ 
#EPRT1,EPRTSW 
EPRTSW,32$+2 
#EPRTL 


#EPRT1,-CSP) 
#1,-(SP) 


#EPRT1, EPRTSW 
PC 


‘SNSA &&eek4CHECK TRANSPORT&saea9S/ 





sGET THE TSSR CONTENTS 

sCLEAR ALL BUT TERMINATION 

sGET THE TERMINATION CODE MEANING 
sPRINT THE TERMINATION CODE 


sTSSR CONTENTS AGAIN 
sCLEAR ALL BUT FATAL TERMINATION 
sDON‘T PRINT IF ZERO 


sALINE TERMINATION CODE FOR INDEX 
sGET THE FATAL TERMINATION CODE 
sPRINT THE FATAL TERMINATION CODE 


;DROP THIS UNIT AFTER ERROR MESSAGE 
sGET TSSR CONTENTS 

sCLEAR ALL BUT EXTENDED ADDRESS 
sDON‘T PRINT IF ZERO 

sPRINT THE EXTENDED ADDRESS BITS 


sCHECK FOR MEDIA ERROR 
;BR, IF PROBABLY NOT TAPE ERROR 


;"PROBABLY MEDIA RELETED ERROR - BAD TAPE” 


; CHECK FOR THE SWITCH EMPTY 
sBR, IF SWITCH IS NOT EMPTY 
sSET SWITCH TO DEFAULT 


;PUT REAL SWITCHABLE MESSAGE IN PLACE 


sPRINT THE ERROR MESSAGE 


sRESET TO NORMAL ERROR POINTER 
sRETURN TO CALLER 





SEQ 0043 








Lr a | 
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PRITSSR - PRINT TSSR CONTENTS 


1528 
1529 
1530 
1531 
1532 
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045 EPRT2: .ASCIZ 
045 EPRT3: .ASCIZ 
045 TSSRFOR: 
04S TEXASC: 
045 TCOASC: 
045 TFCASC: 
045 TSSDEF: 
045 AMBTSSR: 


-EVEN 

006465 TCOCOD: .WORD 
162 1%: -ASCIZ 
162 2%: -ASCIZ 
160 3%: -ASCIZ 
156 4$: -ASCIZ 
143 5$: -ASCIZ 
143 6%: -ASCIZ 
162 7$: -ASCIZ 
164 8$: -ASCIZ 
-EVEN 

007011 TSFCOD: .WORD 
164 1S: -ASCIZ 
163 2$: -ASCIZ 
163 3$: -ASCIZ 
163 4$: -ASCIZ 
-EVEN 





SEQ 0044 


‘SNSA #eeeeCHECK PARITY SWITCH IN TRANSPORT&seeasS’ 
‘SNSA #eee4POSSIBLE MEDIA RELATED ERROR - BAD TAPEsseeans’ 


-ASCIZ 
-ASCIZ 
-ASCIZ 
-ASCIZ 
-ASCIZ 
-ASCIZ 


‘SNSA TSSR = #06’ 

‘SNSA Extended Address Bits = #06’ 

‘SNSA Termination Class Code = sT’ 

‘SNSA Fatal Termination Class Code = sT’ 
‘SNSA TSSR Bits Set: sT’ 

‘SNSA TSSR Contents Are Ambiguous’ 


1$,2$,3$,4$,5$,6$,7$,8$ 

‘Normal Termination’ 

‘Termination Condition’ 

‘Tape Status Alert’ 

‘Function Reject’ 

‘Recoverable Error - Tape Position One Record Down’ 
‘Recoverable Error - Tape Was Not Moved’ 
‘Unrecoverable Error’ 

‘Fatal Controller Error’ 


1$,2$,3$,4$ 

‘Internal Diagnostic Fai lure’ 
'Reserved' 

‘Bus Interface or Sanity Check Error’ 
‘Reserved’ 






RT RR RE 
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PRIPKT - PRINT THE ADDRESS/CONTENTS OF COMMAND PACK SEQ 0045 
1555 -SBTTL PRIPKT ~- PRINT THE ADDRESS/CONTENTS OF COMMAND PACKET 
1556 ; 
1557 3¢ 
1558 sTHIS ROUTINE PRINTS THE ADDRESS AND CONTENTS OF A COMMAND PACKET. 
nee sTHIS ROUTINE IS NORMALLY ONLY CALLED FROM A PRINT ROUTINE. 

1 ; 
1561 s INPUT: 
1562 ; 
1563 3 RO NUMBER OF WORDS IN PACKET 
1564 3 R3 HIGH ORDER COMMAND PACKET ADDRESS 
on 3 R4 ADDRESS OF COMMAND PACKET 
6 3 
oH 3 NOTE R3 IS IGNORED IF THE KTENABLE FLAG IS CLEAR. 
ge 

1569 
1570 007066 PRIPKT:: 
1571 007066 SAVREG sSAVE THE REGISTERS 
1572 007072 010005 MOV RO,R5 sSAVE NO. OF WORDS IN PACKET 
1573 007074 005737 003106 TST KTENABLE sABOVE 28K UNDER TEST? 
1574 007100 001001 BNE 10$ ;BR IF YES 
1575 007102 005003 CLR R3 +SET HIGH ORDER ADDRESS TO 0 
1576 007104 010301 10$: MOV R3,R1 sCOPY HIGH ORDER ADDRESS 
1577 007106 010400 MOV R4,RO ;GET LOWER ADDRESS 
1578 007110 006100 ROL RO sSHIFT BIT 15 INTO C BIT 
1579 0C7112 006101 ROL R1 sAND INTO HIGH ORDER. 
1580 007114 PRINTB #PKTADD,R1,R4 sPRINT PACKET ADDRESS 

007114 010446 MOV R4,-C(SP) 

007116 010146 MOV R1,-(SP) 

007120 012746 007272 MOV #PKTADD, -( SP) 

007124 012746 000003 MOV #3,-(SP) 

007130 010600 MOV SP ,RO 

007132 104414 TRAP CS$PNTB 

007134 062706 000010 ADD #10,SP 
1581 007140 010300 15$: MOV R3,RO sGET HIGH ORDER ADDRESS 
1582 007142 001404 BEQ 20$ ;BR IF NOT ABOVE 28K. 
1583 007144 010401 MOV R4,R1 ;GET LOW ORDER ADDRESS 
1584 007146 004737 020272 JSR PC ,SETMAP s;SETUP PAR6 MAPPING FOR 18 BIT ADDRESS 
1585 007152 010004 MOV RO,R4 sGET RETURNED PAR6 ADDRESS BIAS 
1586 007154 005001 20$: CLR R1 ;SAVE WORD NUMBER 
1587 007156 012402 25$: MOV (R4)+,R2 ;GET PACKET CONTENTS 
1588 007160 PRINTB #PKTFRM,R1,R2 sPRINT THE DATA 

007160 010246 MOV R2,-C(SP) 

007162 010146 MOV R1,-(SP) 

007164 012746 007234 MOV #PKTFRM, -( SP) 

007170 012746 000003 MOV #3,-(SP) 

007174 010600 MOV SP ,RO 

007176 104414 TRAP CS$PNTB 

007200 062706 000010 ADD #10,SP 
1589 007204 005201 INC R1 sNEXT WORD NUMBER 
1590 007206 020105 CMP R1,R5 ;DONE ALL PACKET WORDS? 
1591 007210 002762 BLT 25$ ;LOOP TILL ALL DONE 
1592 007212 PRINTB #PKTNEW ;JUST A COUPLE NEW LINES 

007212 012746 007327 MOV #PKTNEW, -( SP) 

007216 012746 000001 MOV #1,-(SP) 

007222 010600 MOV SP ,RO 

007224 104414 TRAP CSPNTB 

007226 062706 000004 ADD #4 ,SP 







PRIPKT 





1593 007232 000207 
1594 


1595 007234 
laee 007272 


15 

1598 007327 
1599 

1600 


045 
045 


045 


LL ge 


CZTKHB TK-25 FRT END FUNC 04 


116 
116 


116 
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- PRINT THE ADDRESS/CONTENTS OF COMMAND PACKET 


RTS PC sRETURN 


045 PKTFRM: .ASCIZ ‘SNSA Packet Word @sD1SA = #06’ 
045 PKTADD: .ASCIZ ‘SNA Packet Address = #01s05' 


045 PKTNEW: .ASCIZ ‘sNSNSA ' 
-EVEN 


SEQ 0046 
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PRIBXOR - PRINT EXPD, RECV AND XOR BYTE SEQ 0047 
ete | -SBTTL PRIBXOR - PRINT EXPD, RECV AND XOR BYTE 
1 
1604 3+ 
1605 3 
1606 ;PRINT EXPECTED DATA, RECEIVED DATA, AND XOR OF THE DATA BYTE 
pod sTHIS ROUTINE IS NORMALLY CALLED ONLY FOR PRINT ROUTINES. 
1609 s INPUTS: 

1610 ; 
1611 3 Ri RECEIVED DATA 
1612 3 R2 EXPECTED DATA 
1613 ; 
1614 ; OUTPUT: 
1615 : 
1616 3 RO XOR OF EXPECTED/RECEIVED DATA 
1617 3 
1618 3° 
1619 
1620 007340 PRIBXOR: : 
1621 007340 SAVREG ;~AVE THE REGISTERS 
1622 007344 010203 MOV R2,R3 sEXPECTED DATA 
1623 007346 XOR R1,R3 sFORM THE EXCLUSIVE OR 
1624 007356 012700 177400 MOV #tC<377>,RO0 ;BYTE MASK 
1625 007362 040001 BIC RO,R1 sSAVE LOW BYTE RECV 
1626 007364 040002 BIC RO,R2 sSAVE LOW BYTE EXPD 
1627 007366 040003 BIC RO,R3 ;SAVE LOW BYTE XOR 
1628 007370 PRINTB #XORBFOR,R2,R1,R3 ;PRINT THE MESSAGE 
007379 010346 MOV R3,-CSP) 
007372 010146 MOV Ri,-(SP) 
007274 010246 MOV R2,-CSP) 
007376 012746 007422 MOV #XORBFOR ,-(SP) 
007402 012746 000004 MOV #4,-(SP) 
007406 010600 MOV SP ,RO 
007410 104414 TRAP CSPNTB 
007412 062706 000012 ADD #12,SP 
1629 007416 010300 MOV R3,RO :RO HAS XOR ON RETURN 
on 007420 000207 RTS PC sRETURN TO CALLER 
1632 007422 045 116 045 xXORBFOR: -ASCIZ ‘sSNA EXPD: #O03SA RECV: S038A XOR: 803° 
et -EVEN 
163 


CZTKHB TK-25 FRT END FUNC 04 MACRO YOS.02 Tuesday 25-Jun-85 10:28 Page 36 





PRIXOR - PRINT EXPD, RECV AND XOR SEQ 0048 
ts -SBTTL PRIXOR - PRINT EXPD, RECV AND XOR 
16 
1638 3+ 
1639 H 
1640 ;PRINT EXPECTED DATA, RECEIVED DATA, AND XOR OF THE TWO 
ian ;THIS ROUTINE IS NORMALLY CALLED ONLY FOR PRINT ROUTINES. 
8 
1643 ; INPUTS: 
1644 3 
1645 3 Ri RECEIVED DATA 
1646 3 R2 EXPECTED DATA 
1647 H 
1648 P ;OUTPUT: 
1649 3 
1650 3 RO XOR OF EXPECTED/RECEIVED DATA 
1651 3 
1652 3° 
1653 
1654 007470 PRIXOR:: 
1655 007470 SAVREG sSAVE THE REGISTERS 
1656 007474 010203 MOV R2,R3 sEXPECTED DATA 
1657 007476 xOR R1,R3 sFORM THE EXCLUSIVE OR 
1658 007506 PRINTB #XORFOR,R2,R1,R3 ;PRINT THE MESSAGE 
007506 010346 MOV R3,-CSP)> 
0C7510 010146 MOV R1i,-CSP) 
007512 010246 MOV R2,-(SP) 
007514 012746 007540 MOV #XORFOR, -( SP) 
007520 012746 000004 MOV #4,-(SP) 
007524 010600 MOV SP ,RO 
007526 104414 TRAP CS$PNTB 
007530 062706 000012 ADD #12,SP 
1659 007534 010300 MOV R3,RO ;RO HAS XOR ON RETURN 
rt 007536 000207 RTS PC sRETURN TO CALLER 
65 
3 007540 045 116 045 XORFOR: ry ‘sNSA EXPD: S068A RECV: SO6SA XOR: #06! 
166 . 








CZTKHB TK-25 FRT END FUNC 04 
PRIEQU 


1700 
1701 
1702 
1703 
1704 
1705 
1706 
1707 
1708 
1709 
1710 
1711 
1712 
1713 
1714 
i715 


007606 
007606 
007612 


007614 
007614 
007620 
007620 
007622 
007626 
007632 
007634 
007636 
007642 


007644 


000207 


010446 
012746 
012746 
010600 
104414 
062706 
000207 


045 


007644 
000002 


000006 


116 
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- PRINT BIT NUMBERS AS ASCII EQUIVALENT SEQ 0049 


045 


-SBTTL PRIEQU - PRINT BIT NUMBERS AS ASCII EQUIVALENT 
3* 


a 
sROUTINE TO CONVERT BIT VALUES TO ASCII AND PRINT THE STRING 
sTHIS ROUTINE IS NORMALLY CALLED FROM A PRINT ROUTINE 


3 

s INPUTS: 

; RO OCTAL VALUE TO CONVERT 

; Ri TABLE OF POINTERS TO ASCII EQUIVALENT 

3 

7 

PRIEQU: 
SAVREG :SAVE THE REGISTERS 
RTS PC s;RETURN TO CALLER 


-SBTTL PRIRAM - PRINT RAM ADDRESS 


3¢ 


: 
sPRINT CONTROLLER RAM ADDRESS. 
sTHIS ROUTINE IS NORMALLY CALLED ONLY FROM PRINT ROUTINES. 


; INPUTS: 

: 

‘ R4 RAM ADDRESS 

PRIRAM: 
SAVREG SAVE R1-RS UNTIL NEXT RETURN 
PRINTB @RAMFOR,R4 ;PRINT RAM ADDRESS IN ERROR 


MOV R4,-CSP) 
MOV Te at 


MOV SP ,RO 
TRAP C$PNTB 
ADD #6 , SP 
RTS PC sRETURN 
RAMF OR: a ‘sSNSA CONTROLLER RAM ADDRESS = #06’ 
. Vv 


-SBTTL PRIADD - PRINT MEMORY ERROR ADDRESS 


i? 


: 
sPRINT MEMORY ADDRESS 
sTHIS ROUTINE IS NORMALLY CALLED ONLY FROM PRINT ROUTINES. 


‘ 
IMPLICIT INPUTS 


; 

; 

; ERRHI - HIGH ORDER ADDRESS 
; ERRLO - LOW ORDER ADDRESS 


CZTKHB TK-25 FRT END FUNC 04 


PRIADD 


a 


1716 

1717 

1718 007706 
1719 007706 
1720 007712 
1721 007716 
1722 007722 
1723 007724 
1724 007726 
1725 007730 


1726 007754 
1727 
1728 007756 
1729 
1730 
1731 
1732 
1733 
1734 
1735 
1736 
1737 
1738 
1739 
1740 
1741 
1742 
1743 
1744 010022 
1745 010022 
1746 010026 
1747 010032 
1748 010036 
1749 010040 
1750 010042 
1751 010044 


1752 010070 
1753 
1754 010072 
1755 
1756 
1757 
1758 


013700 
013701 
010102 
006101 
006100 


010246 
010046 
012746 
012746 
010600 
104414 
062706 
000207 


045 


002204 
002206 


007756 
000003 


000010 


116 


002204 
002206 


010072 
000003 


000010 


116 





3 
id 
PRIADD: 


045 PRIAO: 


3* 


-ASCIZ 
-EVEN 


-SBTTL 


MACRO YOS.02 Tuesday 25-Jun-85 10:28 
- PRINT MEMORY ERROR ADDRESS 


ERRHI,RO 
ERRLO,R1 
R1i,R2 

Ri 


RO 
@PRIAO ,RO,R2 
R2, -(SP) 
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SEQ 0050 


sSAVE R1-RS UNTIL NEXT RETURN 
sGET HIGH. ADDRESSS 

sGET LOW ADDRESS 

:COPY LOW ADDRESS 

sSHIFT BIT 15 TO C BIT 

sSHIFT INTO HIGH ORDER 

sPRINT MEMORY ADDRESS IN ERROR 


sRETURN 


‘sNSA MEMORY ERROR ADDRESS = #019805’ 


PRITADD - PRINT MEMORY TEST ADDRESS 


; 
sPRINT MEMORY ADDRESS 
sTHIS ROUTINE IS NORMALLY CALLED ONLY FROM PRINT ROUTINES. 


PRITADD: 


045 PRITO: 


ERRHI 
ERRLO 


-ASCIZ 
-EVEN 


IMPLICIT INPUTS 


- HIGH ORDER ADDRESS 
- LOW ORDER ADDRESS 


ERRHI,RO 
ERRLO,R1 
R1,R2 

R1 


RO 
@PRITO,RO,R2 
R2,-CSP) 

RO, -(SP) 
@PRITO, -CSP) 
#3,-(SP) 

SP ,RO 

C$PNTB 
#10,SP 

PC 


sSAVE R1-RS UNTIL NEXT RETURN 
;GET HIGH ADDRESSS 

sGET LOW ADDRESS 

COPY LOW ADDRESS 

sSHIFT BIT 15 TO C BIT 

sSHIFT INTO HIGH ORDER 

sPRINT MEMORY ADDRESS IN ERROR 


sRETURN 


‘sNSA MEMORY TEST ADDRESS = #019805’ 


—_— —_—— 





CZTKHB TK-25 FRT END FUNC 04 
SPACE 


cn 


010134 
010134 
010140 
010146 
010154 
010156 
010160 
010164 
010166 
010172 
010176 
010204 
010210 
010214 
010220 
010222 
010222 


010226 — 
010230 . 


010234 


010236 . 
010242 * 


012737 
012737 
005703 
100403 
010337 
000407 
042703 
010337 
052737 
012704 
010465 
004737 
103420 


012727 


000764 
140010 


010322 


017124 


000250 
002116 
177772 
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- SPACE RECORDS (FORWARD AND REVERSE) COMMAND 


010330 
010320 


010320 













SEQ 0051 
-SBTTL SPACE - SPACE RECORDS (FORWARD AND REVERSE) COMMAND 
3° 


3 

sROUTINE TO ISSUE A SPACE RECORDS 
sCOMMAND (FORWARD OR REVERSE) 

; 


R3 NUMBER OF RECORDS TO BE SPACED OVER 
BIT1S CONTROLS DIRECTION 
BITiS = 0 IS FORWARD 
BITiS = 1 IS REVERSE 

RS FIRST DEVICE UNIBUS ADDRESS 


REQUIRES A WRITE CHARACTERISTICS DONE PREVIOUSLY 


CARRY SET - SPACE RECORDS COMMAND OK 
CLR - SPACE RECORDS FAILED 


RO THE CONTENTS OF R4 IS MOVED TO RO 


IMPLICIT OUTPUT: 

TAPE HAS BEEN MOVED 
; 

sSIDE EFFECTS: 

; 


; 
; 
; 
; 
; 
; 
; 
; 
; 
; 
sOUTPUT: 
; 
: 
: 
; 
3 
; 
‘ 
a 
; 


SPACE: : 
SAVREG sSAVE THE GENERAL REGISTERS 
MOV #500. , SDELAY sSET UP DELAY 
MOV #140010, 80$ sSET UP COMMAND, SPACE FORWARD 
TST R3 sCHECK FOR DIRECTION 
BMI 5$ 3;BR, IF REVERSE INDICATED 
MOV R3,90$ ;LOAD UP NUMBER OF RECORDS TO SPACE 
BR 10$ :GO DO COMMAND 
5$: BIC #BIT15,R3 ;CLEAR DIRECTION BIT 
MOV R3,90$ ;LOAD UP NUMBER OF RECORDS TO SPACE 
BIS #BIT8,80$ ;SET REVERSE BIT IN COMMAND PACKET 
10$: MOV #803 ,R4 sSET UP R4& WITH PACKET ADDRESS 
MOV R4, TSDBCRS) sSEND OUT COMMAND 
15$: JSR PC ,WAITF sWAIT FOR SSR 
Bcs 20% ;BR, IF SSR IS SET AND OK 
DELAY 250 sDELAY ABOUT .25 SECONDS 
MOV €250,(PC)+ 
-WORD 0 
MOV LSDLY,(PC)+ 
-WORD O 
DEC -6(PC) 
BNE 74 


CZTKHB TK-25 FRT END FUNC 04 
SPACE - SPACE RECORDS (FORWARD AND REVERSE) COMM 


1823 010306 
1824 010310 


005367 177756 
001367 
005337 010330 
001356 
000411 
016501 000000 


012702 000200 
020201 


MACRO Y05.02 Lb aon 


25-Jun-85 10:28 


-22(PC) 
20 


SDELAY 

15$ 

60$ 
TSSRCR5),R1 
@SSR ,R2 
R2,R1 

40$ 

60$ 


70$ 


R4,RO 
PC 
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sBUMP DELAY COUNTER DOWN 
sBR, IF MORE DELAY 

sBR IF TROUBLE CARRY = CLEAR 
sREAD TSSR 

sSET UP EXPECTED 

sARE THEY OK 

sBR, IF EQUAL = OK 

sTROUBLE EXIT 

aes NO TROUBLE 


sExI 
sCARRY CLEAR = ERROR 


sPASS PACKET ADDRESS 
sRETURN 





SEQ 0052 


, 


ZTKHMB TK-25 FRT END FUNC 04 


SPACE - SPACE RECORDS (FORWARD AND REVERSE) COMM 


1832 010312 
1834 


1835 
1836 010320 
1837 


1838 010322 
1839 0:0324 
1840 010326 
1841 0:0330 
1842 











NS 
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PACKET FOR SPACE COMMAND 
-BLKB = =10-<,-TUV2AE7> 


sCOMMAND WORD 

803: WORD 

sNUMBER OF RECORDS TO BE SPACED OVER WORD 

903: WORD 
. WORD 
WORD 

SDELAY: .WORD 0 ;DELAY COUNTER 
-EVEN 


SEQ 0053 





ZTKMB TK-25 FRT END FUNC 04 
WRTCHR - WRITE CHARACTERISTICS COMMAND 


1875 010332 
1876 010332 
1877 010336 
1878 010342 
1879 010346 
1880 010352 
1881 010354 
1882 010356 
1883 010362 
1884 010366 
1885 010372 
1886 010374 
1887 010400 
1888 910402 
1889 010404 
1890 010406 
1891 010412 
1892 010414 
1893 010420 
1894 010422 
1895 010424 
1896 019426 
1897 010432 


005037 
010465 
004737 
103401 
000423 
016501 
012702 
032701 
001402 
052702 
020201 
001401 
000407 
062704 
011403 
010337 
000261 
000401 
000241 
016500 
000207 


002176 
177776 
017240 


000000 
000200 
000100 


000100 


000010 
002720 


000000 
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3° 


- SBTTL 


WRTCHR - WRITE CHARACTERISTICS COMMAND 


; 
sROUTINE TO ISSUE A WRITE CHARACTERISTICS 


sCOMMAND SO THAT OTHER COMMANDS WILL BE ACCEPTED 


: 
INPUT: 


OUTPUT: 


208: 


258: 


40$: 


60$: 
708: 


R4 
RS 


REQUIRES A CALL TO SOFINIT BE DONE PREVIOUSLY 


RO 
CARRY 


ADDRESS OF PACKET FROM TEST 
FIRST DEVICE UNIBUS ADDRESS 


TSSR CONTENTS 

SET - WRITE CHARACTERISTICS COMMAND OK 
CLR - WRITE CHARACTERISTICS FAILED 
IMPLICIT OUTPUT: 


MESSAGE BUFFER AND OTHER BUFFERS ALL SET UP 


SOFTWARE SWITCHES SET AS FOLLOWS: 


SIDE EFFECTS: 


BENBSW = BUFFER ENABLE SWITCH ON OR OFF 


BENBSW 
R4,TSOBCRS) 
PC ,CHKTSSR 
20$ 


60$ 
TSSRCRS),R1 
R2 


(R4),R3 
R3,MESBFA 


70$ 
TSSRCRS),RO 
PC 


sSAVE THE GENERAL REGISTERS 
sCLEAR BUFFER ENABLE SWITCH 
sSEND OUT COMMAND 

sWAIT FOR SSR 

sBR, IF SSR IS SET AND OK 
sBR IF TROUBLE CARRY = CLEAR 


sREAD TSSR 


sSET UP EXPECTED 

sWAS OFF LINE SET IN TSSR 
sBR, IF NO OFL SET 

sMAKE THEM LOOK ALIKE 


sARE THEY OK 


sBR, IF EQUAL = OK 

sTROUBLE EXIT 

sPOINT TO WRT CHARA DATA PACKET 
sGET ADDRESS OF MESSAGE BUFFER 
sSTGRE FOR PRINT ROUTINES 

;SET CARRY NO TROUBLE 


sEXIT 


sCARRY CLEAR = ERROR 
sRETURN TSSR CONTENTS 


RETURN 


SEQ 0054 
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REWIND - POSITION TAPE (REWIND) COMMAND SEQ 0055 
pee! -SBTTL REWIND - POSITION TAPE (REWIND) COMMAND 
1 
1903 3° 
1904 3 
pee sTHIS ROUTINE WILL REWIND THE SELECTED TAPE. 

1 $ 
1907 3 CAUTION: THE ROUTINE DOES NOT WAIT FOR BOT 
1908 3 TO ARRIVE. ALSO THE CALLER MUST CHECK FOR 
1909 3 SSR TO SET IN THE TSSR 
1910 3 
1911 ; 
1912 ;CALLING SEQUENCE: 
1913 8 
1914 3 DO A SOFT INIT 
1915 3 DO A WRITE CHARACTERISTICS 
1916 3 JSR PC ,REWIND 
1917 3 
1918 INPUT: 
1919 F 
1920 F RS FIRST DEVICE UNIBUS ADDRESS 
1921 Fy 
1922 3 
1923 sOUTPUT 
1924 3 
1925 3 RO THE CONTENTS OF R4& IS PASSED TO RO 
1926 Fy 
1927 Fy 
1928 3° 
1929 010434 REWIND: : 
1930 010434 SAVREG sSAVE R1-R5 UNTIL NEXT RETURN 
1931 010440 012704 010530 MOV @RWPACK ,R4 ;GET PACKET ADDRESS 
1932 010444 010465 177776 MOV R4,TSOBCRS) ;SEND PACKET ADDRESS TO EXECUTE 
1933 010450 012703 000550 MOV #360. ,R3 sENOUGH TIME FOR 2400' REEL TO REWIND 
1934 010454 004737 017124 10$: JSR PC ,WAITF sWAIT FOR SSR TO SET 
1935 010460 103417 6cS 20$ ;LEAVE WHEN SSR IS SET 
1936 010462 DELAY 250. sWAIT FOR .25 SECONDS 
010462 012727 000372 MOV #250.,(PC)+ 
010466 000000 -WORD 0O 
010470 013727 002116 MOV LSOLY,CPC)+ 
010474 000000 -WORD O 
010476 005367 177772 DEC -6(PC) 
010502 001375 BNE 74 
010504 005367 177756 DEC -22(PC) 
010510 001367 BNE .-20 
1937 010512 005303 DEC R3 ;BUMP COUNTER DOWN 
1938 010514 001357 BNE 10$ sKEEP GOING 
1939 010516 000241 cLc ;CLEAR CARRY TO SET ERROR 
1940 010520 010400 208: MOV R4,RO ;PASS THE PACKET ADDRESS 
1941 010522 000207 RTS PC ;RETURN 
1943 010524 -BLKB 10-<.-TUV2AE7> 
1945 010530 RWPACK: 
1946 010530 102010 WORD 102010 sPOSTION COMMAND (REWIND) 
1947 019532 000000 -WORD O sNOT USED 





heey ae aie mie Lar 





CZTKHB TK-25 FRT END FUNC 04 
- COMPARE RAM TO I/0 PACKET 


CKRAM 


1977 010534 
010534 
1979 010540 
010544 
010550 
010552 
010556 
010562 
010566 
010572 
010576 
010600 
1989 010602 
010604 
010606 
010612 
010614 
010616 
010620 
010622 
010624 
010626 
010634 


012701 
012702 
005003 
004737 
004737 
110265 
004737 
116511 
122124 
001401 
005203 
005202 
020227 
003761 
005703 
001402 
000241 
000401 
000261 
012737 
000207 





002210 
000020 


017240 
017240 
177777 
017240 
177776 


000027 


000010 002250 


a 
MACRO YOS.02 T 


-SBTTL CKRAM 


3* 
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SEQ 0056 


- COMPARE RAM TO I/0 PACKET 


; 
sROUTINE TO READ THE FIRST 8 BYTES FROM RAM 
sMEMORY AND COMPARE THIS DATA TO A COMMAND PACKET. 


; 
s INPUT: 
; 


; R4 
; RS 


; 
sOUTPUT: 


F 
3 CARRY 
3 


SIDE EFFECTS: 


10$: 


208: 


30$: SEC 
50$: 


ADDRESS OF THE COMMAND PACKET 


FIRST DEVICE UNIBUS ADDRESS 


SET - RAM MATCHES PACKET 
CLR - RAM DOES NOT MATCH PACKET 


;IMPLICIT OUTPUT: 


@RAMDATA,R1 
 ~ helices 


PC ,CHKTSSR 
PC,CHKTSSR 

R2, TSDBH(RS) 
PC ,CHKTSSR 
TSBALC(RS),(R1) 
(R1)+,CR4)+ 
20$ 

R3 


R2 
R2, #RMPK TEND 
10$ 


R3 
30$ 


50$ 
#8. ,RAMSIZ 
PC 


THE TABLE RAMDATA IS FILLED WITH THE 
DATA HELD IN RAM. 
RAMSIZ IS SET TO 8. FOR PRAMPKT ROUTINE 


sSAVE THE GENERAL REGISTERS 

sADDRESS TO SAVE THE RAM DATA 

sBYTE ADDRESS OF FIRST RAM DATA 

sCLEAR THE ERROR FLAG 

sWAIT FOR SSR 

sWAIT FOR SSR TO SET 

sSELECT NEXT RAM ADDRESS 

sWAIT FOR SSR TO SET 

sREAD THE RAM DATA 

sCOMPARE TO EXPECTED 

sBRANCH IF OK 

sSET ERROR FLAG 

sADDRESS OF NEXT RAM LOCATION 

sREACHED END YET ? 

sBRANCH TILL ALL READ 

sWAS AN ERROR FOUND ? 

sBRANCH IF NOT 

sCLEAR CARRY TO SHOW ERROR 

sAND EXIT 

sSHOW GOOD COMPARE 

sSETUP RAMSIZ FOR PRAMPKT ROUTINE 
N 


sRET 








CZTKHB TK-25 FRT END FUNC 04 


2045 


EST abl Soi A as a A le a 


010636 
010636 
010642 
010646 
010652 
010656 
010662 
010666 
010672 
010676 
010702 
010706 
010710 
010714 
010720 
010722 
010726 
010726 
010730 
010732 
010736 
010742 
010744 
010746 
010752 
010756 
010762 
010764 
010766 
010772 
010772 
010774 
011000 
011004 
011006 
011010 
011014 


013705 
012701 
013702 
013703 
004737 
110265 
004737 
116521 
062702 
077313 
013704 
013702 
060204 
162704 


010446 
010246 
012746 
012746 
010600 
104415 
062706 
012701 
013703 
005004 
112104 
042704 


010446 
012746 
012746 
010600 
104415 
062706 
077316 


011022 
002210 
011020 
002250 
017240 
177777 
017240 
177776 
000001 


002250 
011020 


000001 


011024 
000003 


000010 
002210 
002250 


177400 


011075 
000002 


000006 
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RAMER - READ AND DISPLAY SELECTED RAM 
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SEQ 0057 


-SBTTL RAMER - READ AND DISPLAY SELECTED RAM 


i* 


i 
sROUTINE TO READ THE SELECTED RAM LOCATIONS 


4 

; INPUT: 

; RS FIRST DEVICE UNIBUS ADDRESS : 
: CONSOLE WILL ALSO BE PRINTED TO 

H 

;IMPLICIT OUTPUT: , 

; THE TABLE RAMDATA IS FILLED WITH THE 

: DATA HELD IN RAM, 


; 
sSIDE EFFECTS: 
; 


10$: JSR 


20$: ADD 


30$: CLR 


RAMRSH,RS 
#RAMDATA,R1 
RAMHLD ,R2 
RAMSIZ,R3 
PC ,CHKTSSR 
R2, TSDBHC(RS) 
PC ,CHKTSSR 


#1, 
R3,10$ 
RAMSIZ,R4 
RAMHLD ,R2 


#1,R4 
#RAMIOP,R2,R4 
R4, -(SP) 
R2,-(SP) 
#RAMIOP, -(SP) 
#3,-CSP) 

SP ,RO 

C$PNTX 

#10,SP 
#RAMDATA,R1 
oats Ae 


R 

(R1)+,R4 
#177400,R4 
#RAMPD ,R4 
R4,-(SP) 
#RAMPD , - (SP > 
#2,-(SP) 


#6 ,SP 
R3,30$ 


TSBALC(RS),(R1)+ 
R2 


sSAVE THE GENERAL REGISTERS 

sRESET RS TO FIRST DEVICE REGISTER 
sADDRESS TO SAVE THE RAM DATA 
sBYTE ADDRESS OF THE FIRST RAM DATA 
sSET THE SIZE OF THE READ UP 

sWAIT FOR THE SSR TO SET 

sSELECT NEXT RAM ADDRESS 

sWAIT FOR SSR TO SET 

sREAD THE RAM DATA 

sADDRESS OF THE NEXT RAM LOCATION 
sNUMBER OF LOCATIONS COUNTER 

sGET THE RAM SIZE 

sGET THE STARTING RAM ADDRESS 
sCALCULATE THE END ADDRESS 
sCORRECT VALUE OF PRINTOUT 

sRAM ADDRESS = 10 - 17, ETC. 


sADDRESS OF WHERE RAM DATA IS 

sTHE SIZE OF THE RAM FIELD READ 

sNO EXTRA DATA LEFT OVER 

sPICK UP BYTE OF RAM DATA 

sGET RID OF SIGN EXTEND 

#“010 211 111 222 377 000 123 134 ETC.” 


sLOOP UNTIL ALL PRINTED 





CZTKHB TK-25 FRT END FUNC 04 


RAMER - READ 


2046 011016 
2047 


2048 011020 
2049 011022 
2050 011024 
2051 011075 
2052 
2053 


000207 


000000 
000000 
045 
045 


116 
101 
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AND DISPLAY SELECTED RAM 


50$: RTS PC sRETURN 


RAMHLD: .WORD 0 sRAM ADDR HOLDER 1ST ADDRESS 
RAMRSH: .WORD 0 sHOLDS RS FOR LATER 
045 RAMIOP: .ASCIZ ‘NSA Ram Address (Octal) = s038A - s03sN’ 
040 RAMPD: cay ‘SA SO38A ' 
-EV 





SEQ 0058 


CZTKHB TK-25 FRT END FUNC 04 
CKRAM2 


011110 
011110 
011114 
011120 
011124 
011126 
011132 
011136 
011142 
011146 
011152 
011154 
011156 
011160 
011162 
011170 
011174 
011176 
011200 
011202 
011204 
011206 
011210 


012701 
012702 
005003 
004737 
004737 
110265 
004737 
116511 
122124 
001401 
005203 
005202 


002210 
000167 


017240 
017240 
177777 
017240 
177776 


000010 
000176 
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- COMPARE RAM TO I/0 CHARACTERISTICS DATA 


-SBTTL 


3* 


CKRAM2 


; 
sROUTINE TO READ THE FIRST 8 O 
sMEMORY AND COMPARE THIS DATA TO A CHARACTERISTICS DATA BLOCK. 


;INPUT : 
H 


3 
s;OUTPUT: 
; 


10$: 


20$: 
002250 


27$: 


30$: 
50$: 


R4 
RS 


CARRY 


SIDE EFFECTS: 


SEQ 0059 


- COMPARE RAM TO I/0 CHARACTERISTICS DATA 


“Canes, 
R 10 BYTES FROM RAM 


ADDRESS OF THE CHARACTERISTICS DATA 
FIRST DEVICE UNIBUS ADDRESS 


SET - RAM MATCHES PACKET 
CLR - RAM DOES NOT MATCH PACKET 


s 
sIMPLICIT OUTPUT: 
THE TABLE RAMDATA IS FILLED WITH THE 


DATA HELD IN RAM. 
RAMSIZ IS SET TO 8. OR 10. FOR PRAMPKT ROUTINE 


#RAMDATA,R1 
#RMCHBEG ,R2 
R3 

PC ,CHKTSSR 
PC,CHKTSSR 

R2, TSDBH(RS) 
PC ,CHKTSSR 
TSBALCRS),(R1) 
(R1)+,(R4)+ 
20$ 


R3 

R2 

#8. ,RAMSIZ 
R2,#RMCHEND-2 
10$ 


sSAVE THE GENERAL REGISTERS 
sADDRESS TO SAVE THE RAM DATA 
sBYTE ADDRESS OF FIRST RAM DATA 
;CLEAR THE ERROR FLAG 
sWAIT FOR SSR 
sWAIT FOR SSR TO SET 
sSELECT NEXT RAM ADDRESS 
sWAIT FOR SSR TO SET 
sREAD THE RAM DATA 
sCOMPARE TO EXPECTED 
sBRANCH IF OK 
s;SET ERROR FLAG 
sADDRESS OF NEXT RAM LOCATION 
sASSUME NORMAL NOT SET 
sREACHED END YET ? 
sBRANCH TILL ALL READ 
sWAS AN ERROR FOUND ? 
sBRANCH IF NOT 
s;CLEAR CARRY TO SHOW ERROR 
sAND EXIT 
sSHOW GOOD COMPARE 

TURN 


CZTKHB TK-25 FRT END FUNC 04 





CKMSG 


2107 
2108 
2109 
2110 
2111 
2112 
2113 
2114 
2115 
2116 
2117 
2118 
2119 
2120 
2121 
2122 
2123 
2124 
2125 


2156 
2157 
2158 
2159 
2160 
2161 








- COMPARE WRITE CHAR. MESSAGE BUFFERS 


3* 
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-SBTTL 





CKMSG - COMPARE WRITE CHAR. MESSAGE BUFFERS 


* 

sROUTINE TO COMPARE A WRITE CHARACTERISTICS EXPD AND RECV 
;sBUFFER. THE EXPECTED AND RECEIVED BUFFERS ARE STORED FOR 
sERROR PRINT ROUTINES. 


3 
s INPUT: 
3 


RO 
Ri 


; R2 
;OUTPUT: 


CARRY 


RECV MESSAGE BUFFER HIGH ORDER ADDRESS 
RECV MESSAGE BUFFER LOW ORDER ADDRESS 
EXPD MESSAGE BUFFER ADDRESS 


SET - MESSAGE BUFFERS MATCH 
CLR -MESSAGE BUFFERS DON'T MATCH 


; 
sIMPLICIT OUTPUT: 


e= 
011212 CKMSG: : 
011212 
011216 
011222 
011226 
011232 
011234 
011240 
011242 
011244 
011246 
011250 
011254 
011260 
011262 
011264 
011266 
011272 
011276 
011300 
011306 
011310 
011314 
011316 
011320 
011322 
011324 
011326 
011330 


002252 
002254 
003106 
020272 
005004 10$: 


002270 15$: 
002434 


000002 25$: 
000014 


000200 
000016 
005703 50$: 


000012 


000261 55$: 
000207 60$: 


EXPMSG 
RECMSG 
RCVHIADD 
RCVLOADD 


BUFFER IS SET TO EXPD DATA 
BUFFER IS SET TO RECV DATA 
SET TO HIGH ORDER ADDRESS OF RECV 
SET TO LOW ORDER ADDRESS OF RECV 


sSAVE R1-RS UNTIL NEXT RETURN 


RO, RCVHIADD sSAVE RECV HIGH ADDRESS 

R1,RCVLOAD sSAVE RECV LOW ADDRESS 

KTENABLE sTESTING ABOVE 28K? 

10$ :BR IF NO 

PC ,SETMAP sRETURN ADDRESS BIASED TO PAR6 IN RO 
RO,R1 sGET RETURNED ADDRESS BIASED TO PAR6 
R4 sWORD IN BUFFER 


R3 sCLEAR ERROR SEEN FLAG 
R2,R5 sGET EXPD BUFFER ADDRESS 
(R2),EXPMSG(R4) ;SAVE EXPD FOR ERROR REPORT 
(R1),RECMSGCR4) ;SAVE RECV FOR ERROR REPORT 


(R2)+,(R1)+ sEXPD EQUAL RECV? 

25$ :BR IF YES 

R3 sSET ERROR SEEN FLAG 

#2 ,R4 sPOINT TO NEXT WORD ADDRESS 
R4 #14 sDONE FIRST 7 WORDS? 


15$ ;BR IF NO 
#X2.EXTF ,XST2CR5);IS EXTENDED FEATURES SET IN EXPD? 
50$ ;BR IF NO 


R4, #16 s;DONE EXTENDED FEATURES WORD? 
15$ ;BR IF NO 
R3 sANY ERRORS SEEN? 


55$ ;BR IF NO 
s;SET FAILURE 


; 
sSET SUCCESS 
PC sRETURN 






SEQ 0060 
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CKMSG2 - COMPARE EXPD RECV MESSAGE BUFFERS SEQ 0061 
aaa -SBTTL CKMSG2 - COMPARE EXPD RECV MESSAGE BUFFERS 
3¢ 
2165 ’ 
2166 sROUTINE TO COMPARE AN EXPECTED AND RECEIVED MESSAGE 
2167 s;BUFFER. THE EXPECTED AND RECEIVED BUFFERS ARE STORED FOR 
2168 sERROR PRINT ROUTINES. 
2169 3 
2170 INPUT 
2171 3 
2172 3 RO RECV MESSAGE BUFFER HIGH ORDER ADDRESS 
2173 ; R1 RECV MESSAGE BUFFER LOW ORDER ADDRESS 
2174 F R2 EXPD MESSAGE BUFFER ADDRESS 
2175 F R3 NUMBER OF BYTES TO COMPARE 
2176 : 
2177 ;OUTPUT 
2178 3 
2179 3 CARRY SET - MESSAGE BUFFERS MATCH 
ty : ; CLR - MESSAGE BUFFERS DON’T MATCH 
3 

2182 sIMPLICIT OUTPUT: 
2183 F 
2184 3 EXPMSG BUFFER IS SET TO EXPD DATA 
2185 ; RECMSG BUFFER IS SET TO RECV DATA 
2186 F RCVHIADD SET TO HIGH ORDER ADDRESS OF RECV 
2187 3 RCVLOADD SET TO LOW ORDER ADDRESS OF RECV 
2188 3 
2189 3° 
2190 011332 CKMSG2:: 
2191 011332 SAVREG ;SAVE R1i-RS UNTIL NEXT RETURN 
2192 011336 020327 000144 CMP R3, #RECMSG - EXPMSG; 88D IS COUNT ABOVE MAX ALLOWED? 
2193 011342 003412 BLE 5$ :98D BR IF NO 
2194 011344 012703 000144 MOV #RECMSG-EXPMSG, R3; 990 
2195 011350 PRINTF #DEBUGMSG 99D 

011350 012746 011464 MOV #DEBUGMSG, -( SP) 

011354 012746 000001 MOV #1,-(SP) 

011360 010600 MOV SP RO 

011362 104417 TRAP CS$PNTF 

011364 062706 000004 ADD #4 ,SP 
2196 011370 010037 002252 S$: MOV RO,RCVHIADD sSAVE RECV HIGH ADDRESS 
2197 011374 010137 002254 MOV R1,RCVLOAD sSAVE RECV LOW ADDRESS 
2198 011400 005737 003106 TST KTENABLE sTESTING ABOVE 28K? 
2199 011404 001403 BEQ 10$ ;8R IF NO 
2200 011406 004737 020272 JSR PC ,SETMAP ;RETURN ADDRESS BIASED TO PAR6 IN RO 
2201 011412 010001 MOV RO,R1 sGET RETURNED ADDRESS BIASED TO PARE 
2202 011414 005004 10$: CLR R4 ;WORD IN BUFFER 
2203 011416 005005 CLR RS sCLEAR ERROR SEEN FLAG 
2204 011420 111264 002270 15$: MOVB (R2),EXPMSGCR4) ;SAVE EXPD FOR ERROR REPORT 
2205 011424 111164 002434 MOVB CR1),RECMSG(R4) ;SAVE RECV FOR ERROR REPORT 
2206 011430 122221 CMPB (R2)+,(R1)+ sEXPD EQUAL RECV? 
2207 011432 001401 BEQ 25$ ;BR IF YES 
2208 011434 005205 INC R5 ;SET ERROR SEEN FLAG 
2209 011436 062704 000001 25%: ADD #1,R4 sPOINT TO NEXT BYTE 
2210 011442 020403 CMP R4,R3 ;DONE ALL BYTES? 
2211 011444 002001 BGE 50$ ;BR IF YES 
2212 011446 000764 BR 15$ 3D0 NEXT BYTE 
2213 011450 005705 50$: TST RS sANY ERRORS SEEN? 
2214 011452 001402 BEQ 55$ ;BR IF NO 











NN 


CZTKHB TK-25 FRT END FUNC 4 


CKMSG2 


2215 011454 000241 
2216 011456 000401 
2217 011460 000261 
ay 011462 000207 


2220 011464 120 
2221 011554 045 
2222 011565 040 
2223 011620 056 
aoe 011653 124 
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- COMPARE EXPD RECV MESSAGE BUFFERS SEQ 0062 
CLC sSET FAILURE 
BR 60$ i 
55$: SEC 3SET SUCCESS 
60$: RTS PC s;RETURN 
117 DEBUGMSG: -ASCIZ ‘PROGRAM INTERNAL ERROR -CKMSG2 MESSAGE BUFFER EXCEEDED-' ; 90D 


O45 FERCM: .ASCII /SNKA s00/ 
124 ERCM: -ASCIZ / TSSR ERROR CODE REC'D = / 
056 SIMSG: .ASCIZ /.... AFTER DOING SOFT INIT/ 
123 TINERR: —— FVEST ss 200d 
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CKMSG2 - COMPARE EXPD RECV MESSAGE BUFFERS 


2243 011666 
011666 
2244 011666 
2245 011672 
2246 011676 
011676 
011676 


2259 011700 

011700 
2260 011700 
2261 011704 
2262 011710 
2263 011714 
2264 011720 
2265 011722 
2266 011726 

011726 

011726 


erry 


004737 
004737 


104423 


004737 
012700 
004737 
013700 
005001 
004737 


104423 


005270 
020156 


014062 





3* 


3 
sPRINT ROUTINE TO FATAL SOFT INIT ERRORS 


SINPUT : 

; R1 CONTENTS OF TSSR AT ERROR 
;SIDE EFFECTS: 

; EXECUTES DROP UNIT TO CEASE TESTING 


BGNMSG SFIMSG 


SFIMSG: ; 
JSR PC,PRITSSR sPRINT CONTENTS OF TSSR REGISTER 
JSR PC ,CKDROP sDROP UNIT, IF ALLOWED 
ENDMSG 
L10003: 
TRAP C$MSG 


3+ 
sPRINT ROUTINE TO PRINT THE CONTENTS OF 
sTSSR AND A COMMAND PACKET OTHER THAN GET STATUS COMMAND PACKET. 


; 
sINPUTS: 

‘ 

: R1 TSSR CONTENTS 

; R4 ADDRESS OF COMMAND PACKET 
a 

32 


BGNMSG PKTSSR 


PKTSSR: : 
JSR PC,PRITSSR sPRINT THE CONTENTS OF TSSR REGISTER 
MOV #4 ,RO sNO. OF WORDS IN PACKET 
JSR PC ,PRIPKT sPRINT THE CONTENTS OF COMMAND PACKET 
MOV MESBFA,RO sADDRESS OF MESSAGE BUFFER 
CLR R1 sASSUME NO HIGH MEMORY 
JSR PC ,,PRMESS sPRINT THE MESSAGE BUFFER ALSO 
ENDMSG 

L10004: 
TRAP C$MSG 


3¢ 
sPRINT ROUTINE TO PRINT THE CONTENTS OF 
sTSSR AND A GET STATUS COMMAND PACKET. 


; 
s INPUTS: 
; 


: Ri TSSR CONTENTS 
; R4 ADDRESS OF COMMAND PACKET 






SEQ 0063 
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CKMSG2 - COMPARE EXPD RECV MESSAGE BUFFERS SEQ 0064 
2278 
2279 011730 BGNMSG PKTGETS 
011730 PKTGETS:: 
2280 011730 004737 005270 JSR PC ,PRITSSR sPRINT THE CONTENTS OF TSSR REGISTER 
2281 011734 012700 000002 MOV #2 ,R0 sNO. OF WORDS IN GET STATUS PACKET 
2282 011740 004737 007066 JSR PC ,PRIPKT sPRINT THE CONTENTS OF COMMAND PACKET 
2283 011744 DMSG 
011744 L10005: 
011744 104423 TRAP C$MSG 
2284 
2285 
2286 3¢ 
aad ;PRINT TSSR ERRORS FOR INITIALIZATION TESTS 
3 
2289 s INPUTS: 
2290 $ 
2291 : R1 TSSR CONTENTS 
2292 3 R4 ADDRESS OF COMMAND PACKET 
2293 3 
2294 
2295 011746 BGNMSG SFFMSG 
011746 SFFMSG:: 
2296 011746 004737 005270 JSR PC ,PRITSSR sPRINT CONTENTS OF TSSR REGISTER 
2297 011752 ENDMSG 
011752 L10006: 
011752 104423 TRAP C$MSG 
2298 
2299 
coe -SBTTL PKTMES - PRINT TSSR AND MESSAGE BUFFER 
3* 
2302 F 
2303 sPRINT ROUTINE TO PRINT THE CONTENTS OF TSSR AND MESSAGE 
2304 ;BUFFER FOR ERROR REPORTS 
2305 F 
2306 s INPUTS: 
2307 3 
2308 F R1 CONTENTS OF TSSR 
2309 F Re LOW ORDER MESSAGE BUFFER 
2310 F R3 HIGH ORDER MESSAGE BUFFER ADDRESS 
ae 3 NOTE: R3 IS IGNORED IF KTENABLE FLAG IS CLEAR 
g° 
2313 011754 BGNMSG PKTMES 
011754 PKTMES:: 
2314 011754 004737 005270 JSR PC ,PRITSSR sPRINT CONTENTS OF TSSR 
2315 011760 010200 MOV R2,RO ;LOW ORDER ADDRESS 
2316 011762 010301 MOV R3,R1 sHIGH ORDER ADDRESS 
2317 011764 004737 014062 JSR PC ,PRMESS sPRINT THE MESSAGE BUFFER 
2318 011770 ENDMSG 
011770 L10007: 
011770 104423 TRAP C$MSG 
2319 


ns 








CZTKHB TK-25 FRT END FUNC 04 
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ADDSSR - PRINT TEST ADDRESS AND TSSR 


eee 


011772 
011772 


012020 


004737 010022 
016501 000000 
004737 005270 


104423 


012700 000007 
004737 015426 


-SBTTL 





ADDSSR - PRINT TEST ADDRESS AND TSSR 


3¢ 
sPRINT ROUTINE TO PRINT THE CONTENTS OF 
sTSSR AND A MEMORY TEST ADDRESS 


é 
s INPUTS: 
: 


L10010: 
T 


-SBTTL 


3¢ 


FIRST DEVICE UNIBUS ADDRESS 
HIGH ORDER MEMORY TEST ADDRESS 
LOW ORDER MEMORY TEST ADDRESS 


ADOSSR 

PC ,PRITADD sPRINT MEMORY TEST ADDRESS 
TSSRCRS),R1 sGET CURRENT TSSR 

PC ,PRITSSR sPRINT THE CONTENTS OF TSSR REGISTER 
C$MSG 


MSGEXP - PRINT WRITE CHAR. EXPD-RECV MESSAGE BUFFERS 


; 

sPRINT ROUTINE TO PRINT WRITE CHARACTERISTIC MESSAGE BUFFER 
j 

sIMPLICIT INPUTS: 


‘ 
; EXPMSG - EXPECTED MESSAGE BUFFER 
; RECMSG - RECEIVED MESSAGE BUFFER 
; RCVHIADD- RECEIVED MESSAGE BUFFER HIGH ORDER ADDRESS 
; RCVLOADD- RECEIVED MESSAGE BUFFER LOW ORDER ADDRESS 
g° 
BGNMSG MSGEXP 
MSGEXP: : 
MOV #7,RO sASSUME NO EXT FEATURES 
5$: JSR PC ,PRMSGEXP sPRINT EXPD/RECV MESSAGE BUFFERS 
ENDMSG 
L10011 
TRAP C$MSG 





tes tes 








SEQ 0065 
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FIFEXP - PRINT FIFO EXP/RECV DATA SEQ 0066 
2359 -SBTTL FIFEXP - PRINT FIFO EXP/RECV DATA 
2360 s* 
2361 3 
toe sPRINT ROUTINE TO PRINT FIFO EXP/RECV DATA 
3 
2364 3 Ri - BYTE COUNT 
2365 3 
$30? sIMPLICIT INPUTS: 
3 
2368 3 EXPMSG - EXPECTED MESSAGE BUFFER (CONTAINS FIFO DATA ONLY. 
cee 8 RECMSG - RECEIVED MESSAGE BUFFER (CONTAINS FIFO DATA ONLY) 
‘ g§* 
2371 012022 BGNMSG FIFEXP 
012022 FIFEXP:: 
2372 012022 PRINTX OF IF1IMSG,R1 sPRINT BYTES TRANSFERRED 
012022 010146 MOV R1,-(SP) 
012026 012746 012074 MOV OF IF iMSG, -(SP) 
012030 012746 000002 MOV @2,-(SP) 
012034 010600 MOV SP ,RO 
012036 104415 TRAP CSPNTX 
012040 062706 000006 ADD 6, SP 
2373 012044 PRINTX @FIF2QMSG sPRINT HEADER MSG 
012044 012746 012143 MOV OF IF QMSG, -(SP) 
012050 012746 000001 MOV #1,-(SP)> 
012054 010600 MOV SP RO 
012056 104415 TRAP CSPNTX 
012060 062706 000004 ADD 04 ,SP 
2374 012064 010100 MOV R1,RO ;GET BYTE COUNT 
2375 012066 004737 015776 JSR PC ,PRBYTEYP sPRINT FIFO BYTES IN ERROR 
2376 012072 ENDMSG 
012072 L10012: 
012072 104423 TRAP CsMSG 
2377 012074 045 116 045 FIFIMSG: -ASCIZ ‘ssNSA NUMBER OF BYTES TRANSFERRED = D2’ 
2378 012143 045 116 045 FIF2MSG: -ASCIZ ‘NSA FIFO DATA BYTES IN ERROR:’ 
tle EVEN 
2 








ZTKMB TK-25 FRT END FUNC 04 
MSGSTAT - PRINT STATUS HEADER AND MESSAGE BUFFERS 


-SBTTL MSGSTAT - PRINT STATUS HEADER AND MESSAGE BUFFERS 


2411 012641 


2428 012716 
012716 


2429 012716 012701 012760 


012701 
012100 
001410 


010046 
012746 
010600 
104415 
062706 
000766 
012700 
004737 


104423 


012262 
045 


012244 


000001 


000004 


000012 
015426 


012324 
116 
116 
116 
116 
116 
116 
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SEQ 0067 


3 
sPRINT ROUTINE TO PRINT MESSAGE BUFFER EXPD/RECV 


; 

; 

sIMPLICIT INPUTS: 
EXPMSG 


- EXPECTED MESSAGE BUFFER 


3 
3 RECMSG - RECEIVED MESSAGE BUFFER 
3 RCVHIADD- RECEIVED MESSAGE BUFFER HIGH ORDER ADDRESS 
3 RCVLOADD- RECEIVED MESSAGE BUFFER LOW ORDER ADDRESS 
ge 
BGNMSG MSGSTAT 
MSGSTAT:: 
MOV @STATCOD,R1 sASCII ADDRESS TABLE 
10$: MOV (R1)+,RO ;DONE ALL MSG LINES? 
BEQ 203 ;BR IF YES 
PRINTX RO sPRINT STATUS BIT NAMES 
MOV RO,-(SP) 
MOV @1,-(SP) 
MOV SP RO 
TRAP CSPNTX 
ADD 04 ,SP 
BR 103 3:00 ANOTHER MSG LINE 
20s MOV #10. ,RO sNUMBER OF WORDS IN A READ STATUS BUFFER 
_ - PC ,PRMSGEXP sPRINT EXPD/RECV MESSAGE BUFFERS 
L10013: 
TRAP C$MSG 
012415 STATCOD: -WORD 18,2$,3$,4$,5$,68,0 
045 1$:.ASCIZ ‘NSA Tape Bus Signals in Word 98:’ 
045 2$:.ASCIZ ‘sNSA PARERR<i5> IEOT <12> IFMK <9> IRDY<6> IRWD<2>° 
045 3%:.ASCIZ ‘sNSA IRESV2<14> IIDENT<11> IHER <8> IONL<5> IFBY<1>° 
045 4$%:.ASCIZ ‘sNSA IRESV1<13> ICER <10> ISPEED<7> ILDP<4> IFPT<Q>: 
045 5$:.ASCIZ ‘NSA Tape Bus Signals in Word #9:' 
045 6$:.ASCIZ ‘sNSA DATMIS<7> ILW<6> OUTRDY<5> INRDY<4>° 


-SBTTL MSGLOOP - PRINT LOOPBACK HEADER AND MESSAGE BUFFERS 


3° 


; 
sPRINT ROUTINE TO PRINT MESSAGE BUFFER EXPD/RECV 


;IMPLICIT INPUTS: 


3 
3 EXPMSG - EXPECTED MESSAGE BUFFER 
8 RECMSG - RECEIVED MESSAGE BUFFER 
3 RCVHIADD- RECEIVED MESSAGE BUFFER HIGH ORDER ADDRESS 
3 RCVLOADD- RECEIVED MESSAGE BUFFER LOW ORDER ADDRESS 
g- 
BGNMSG MSGLOOP 
MSGLOOP: : 
MOV #LOOPCOD,R1 sASCII ADDRESS TABLE 
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MSGLOOP - PRINT LOOPBACK HEADER AND MESSAGE BUFFERS SEQ 0068 
2430 012722 012100 108; MOV (R1)+,RO sDONE ALL MSG LINES? 
2431 012724 001410 BEQ 208 BR IF YES 
2432 012726 PRINTX RO sPRINT STATUS BIT NAMES 
012726 010046 MOV RO, -(SP) 
012730 012746 000001 MOV 1,-(SP) 
012734 010600 MOV SP ,RO 
012736 104415 TRAP CSPNTX 
012740 062706 009004 ADD 04 ,SP 
2433 012744 000766 BR 10$ sD00 ANOTHER MSG LINE 
2434 012746 012700 000012 208: MOV #10. ,RO sNUMBER OF WORDS IN A READ STATUS BUFFER 
2435 012752 004737 015426 JSR PC ,PRMSGEXP sPRINT EXPD/RECV MESSAGE BUFFERS 
2436 012756 ENOMSG 
012756 L10014: 
aes? 0:2756 104423 TRAP C$MSG 
2438 012760 013000 013053 013152 LOOPCOD: -WORD = 1$,2$,3$,4$,58,6$,7$,0 
2439 013000 045 116 045 1%:.ASCIZ ‘SNSA Tape Bus Loopback Signals in Word 08:' 
2440 013053 045 116 045 2%:.ASCIZ ‘sNSA PARERR<15> IRESV2<14> IRESV1<13>° 


2441 013152 045 116 045 3$:.ASCIZ ‘NSA IHISP=>IEOT<12> IWRT => IIDENT<11> IREV =>ICER <10>' 
2442 013251 045 116 045 4$:.ASCIZ ‘SNSA IWFEM =>IFMK<09> IEDIT=>IHER <08> IFAD =>ISPEED<07>° 
2443 013350 045 116 045 5$:.ASCIZ ‘sNSA TTADO=>IRDY<06> ITAD1=>IONL <05> IERASE=>ILDP <04>’ 
2444 013447 045 116 045 6$:.ASCIZ ‘sNSA IREW => IDBY<03> IRWU =>IRWD <O02> IFEN =>IFBY <O1>’ 
2445 013546 045 116 045 7$:.ASCIZ ‘NSA IGO =>IFPT<00>' 
bee -EVEN 

24s 





~~ 








CZTKHB TK-25 FRT END FUNC 04 
MSGSUB - PRINT WRITE SUBSYSTEM MESSAGE BUFFER 


2462 013574 
013574 
2463 013574 
2464 013600 
2465 013604 
013604 
013604 


2483 013606 
013606 
2484 013606 
2485 013612 
2486 013616 
2487 013622 
2488 013626 
013626 
013626 


012700 


000012 


004737 015426 


104423 


004737 
013701 
013702 
004737 


104423 


007706 
002200 
002202 
007470 
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3*¢ 


-SBTTL MSGSUB - PRINT WRITE SUBSYSTEM MESSAGE BUFFER 


; 
sPRINT ROUTINE TO PRINT MESSAGE BUFFER EXPD/RECV 
; 


; 
sIMPLICIT INPUTS: 


- EXPECTED MESSAGE BUFFER 
- RECEIVED MESSAGE BUFFER 
RCVHIADD- RECEIVED MESSAGE BUFFER HIGH ORDER ADDRESS 
RCVLOADD- RECEIVED MESSAGE BUFFER LOW ORDER ADDRESS 


; 
, 
7 
3 
g° 
MSGSUB: : 


L10015: 


3* 


EXPMSG 
RECMSG 


BGNMSG 
MOV 
JSR 
ENOMSG 


TRAP 


MSGSUB 


#10. ,RO 
PC ,PRMSGEXP 


C$MSG 


sSIZE OF WRITE SUBSYSTEM BUFFER 
sPRINT EXPD/RECV MESSAGE BUFFERS 


-SBTTL MEMADD - PRINT MEMORY ADDRESS DATA ERROR 


;PRINT ROUTINE TO PRINT MEMORY ADDRESS DATA COMPARE ERROR 
; 
sIMPLICIT INPUTS: 


- MEMORY ERROR HIGH ORDER ADDRESS 
- MEMORY ERROR LOW ORDER ADDRESS 


3 
3 
‘ 
; 
3 
g7 


MEMADD: : 


L10016: 


- EXPECTED DATA 
- RECEIVED DATA 


MEMADD 
PC ,PRIADD 
EXPD,R1 


RECV,R2 
PC,PRIXOR 


C$MSG 


sPRINT MEMORY ADDRESS IN ERROR 
sGET EXPD DATA 

sGET RECEIVED DATA 

sPRINT EXPD/RECV 


SEQ 0069 





CZTKHB TK-25 FRT END FUNC 04 
PRAMPKT - PRINT RAM AND PACKET DATA 


2525 
2526 
2527 
2528 
2529 
2530 
2531 
2532 
2533 
2534 
2535 
2536 





013776 


012701 
005002 
122124 
001000 
116105 
116403 


042703 
116137 
116437 


010346 
013746 
013746 
010246 
012746 
012746 
010600 
104414 
062706 
005202 
005737 
001404 
020237 
003731 
000403 
020227 
002725 
005037 
000207 

045 


002210 


177777 
177777 


177400 


177777 
177777 


002200 
002202 
013776 
000005 
000014 
002250 
002250 


000010 
002250 
116 
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-SBTTL PRAMPKT - PRINT RAM AND PACKET DATA 


3* 


; 
sPRINT ROUTINE TO DISPLAY RAM/PACKET DATA 
sWHEN THE RAM DATA DOES NOT MATCH. 


3 

s INPUTS: 

3 

3 R4 POINTER TO COMMAND PACKET 

3 

sIMPLICIT INPUTS: 

F 

3 RAMDATA DATA AS READ FROM THE RAM 

; RAMSIZ NUMBER OF BYTES IN PACKET 

; IF RAMSIZ=0 THEN DEFAULT TO 8. 

F 

sIMPLICIT OUTPUTS: 

: 

1 RAMSIZ SET T0 0 

PRAMPKT: 
SAVREG sSAVE R1-R5 UNTIL NEXT RETURN 
MOV #RAMDATA,R1 ;DATA FROM THE RAM 
CLR R2 sINIT BYTE NUMBER 

5$: CMPB (R1)+,CR4)+ sCOMPARE EXPECTED, RECEIVED 
BNE 7$ ;BR IF NO MATCH 

7$: MOVB -10R1),R5 :GET RECV RAM DATA 
MOVB -1(R4),R3 ;GET EXPD PACKET DATA 
XOR R5,R3 :XOR EXPD/RECV 
BIC #177400,R3 ;LOW BYTE ONLY 

002202 MOVB -10R1),RECV ;GET RECEIVED RAM DATA 
002200 MOVB -1(R4),EXPD ;GET EXPECTED RAM DATA 


PRINTB #RAMASC,R2,RECV,EXPD,R3 
MOV R3,-(SP) 

MOV EXPD,-(SP) 

MOV RECV, -CSP) 

MOV R2,-(SP) 

MOV #RAMASC, -( SP) 

MOV #5,-CSP) 

MOV SP ,RO 

TRAP C$PNTB 

ADD #14,SP 


10$: INC R2 sUPDATE BYTE COUNT 
TST RAMSIZ sDEFAULT TO 8.? 
BEQ 15$ ;BR IF YES 
CMP R2,RAMSIZ s;DONE ALL BYTES? 
BLE 5$ ;BR IF NO 
BR 25$ ; 
15$: CMP R2, #8. sDONE DEFAULT NUMBER OF BYTES? 
20$: BLT 5$ ;BR IF NO 
25$: CLR RAMSIZ :SET DEFAULT RAMSIZ 
RT PC URN 


S RET 
045 RAMASC: ere ‘sNSA BYTE: “D2KA RAM: 038A Packet: 038A XOR:#03' 
-EV 


SEQ 0070 





CZTKHB TK-25 FRT END FUNC 04 
- PRINT CONTENTS OF MESSAGE BUFFER 


PRMESS 


2569 


2570 
2571 
2572 
2573 
2574 
2575 
2576 
2577 


014062 
014062 
014066 
014072 
014074 
014100 
014102 
014104 
014106 
014110 
014112 
014112 
014114 
014116 
014122 
014126 
014130 
014132 
014136 
014142 
014144 
014144 
014150 
014154 
014156 
014160 
014164 
014164 
014170 
014174 
014176 
014200 
014204 
014206 
014210 
014212 
014214 
014220 
014222 
014222 


010537 
010005 
005737 
001001 
005001 
010103 
006100 
006101 


010546 
010146 
012746 
012746 
010600 
104415 
062706 
022715 
001010 


012746 
012746 
010600 
104415 
062706 


012746 
012746 
010600 
104415 
062706 
005004 
010501 
010300 
001403 
004737 
010005 


011022 
003106 


014720 
000003 


000010 
177777 


014640 
000001 


000004 
014765 
000001 


000004 


020272 


MACRO YOS.02 


3¢ 
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-SBTTL 


PRMESS 


- PRINT CONTENTS OF MESSAGE BUFFER 


a 

sTHIS ROUTINE PRINTS THE CONTENTS OF 
dha WORD MESSAGE BUFFER RETURNED BY THE 
3TK- . 


INPUT: 


RO 
Ri 


PRMESS: 


10$: 


15$: 


20$: 


PRINTX 


LOW ORDER ADDRESS OF MESSAGE BUFFER 
HIGH ORDER ADDRESS OF MESSAGE BUFFER 
NOTE: R1 IS IGNORED IF KTENABLE FLAG IS CLEAR 


RS ,RAMRSH 
RO,RS 
KTENABLE 
10$ 


R 
#PROASC,R1,R5 
RS,-CSP) 
R1,-(SP) 
#PROASC, -C SP) 
#3 ,-(SP) 

SP ,RO 

C$PNTX 

#10,SP 
#177777,(R5) 
15$ 


#MESBFN 
#MESBFN, -C( SP) 
#1,-CSP) 


#PRLASC, -CSP) 
#1,-CSP) 

SP ,RO 

C$PNTX 


PC ,SETMAP 


#MESHEA, (R5)+ 


THIS ROUTINE IS NORMALLY CALLED FROM A PRINT ROUTINE 


:SAVE THE REGISTERS 

sSAVE DEVICE REGISTER POINTER 
;SAVE LOW ORDER ADDRESS 

sADDRESS ABOVE 28K? 

;BR IF YES 

;SET HIGH ORDER ADDRESS TO 0 
;SAVE HIGH ORDER ADDRESS 

;SHIFT BIT15 TO C BIT 

sSHIFT TO HIGH ORDER FOR PRINTOUT 
;PRINT MESSAGE BUFFER ADDRESS 


sMESSAGE BUFFER FULL OF ONES 
;BR IF BUFFER 15 PROBABLY OKAY 
;"MESSAGE BUFFER PROBABLY NOT VALID” 


sPRINT HEADER FOR CONTENTS 


sNUMBER OF THE NEXT WORD 

s;COPY LOW ORDER ADDRESS 

sCOPY HIGH ORDER ADDRESS 

BR IF NOT ABOVE 28K 

sSETUP PAR ADDRESS IN RO 

sGET PAR FORMAT ADDRESS ABOVE 28K 


sPRINT “MESSAGE BUFFER HEADER =" 


SEQ 0071 





CZTKHB TK-25 FRT END FUNC 04 


PRMESS 


2578 


2579 


2580 


2581 


2582 
0 


2583 


2584 
2585 
2586 
2587 








- PRINT CONTENTS OF MESSAGE BUFFER 


014222 


012546 
012746 
012746 
010600 
104415 
062706 


012546 
012746 
012746 
010600 
104415 
062706 


012546 
012746 
012746 
010600 
104415 
062706 


012546 
012746 
012746 
010600 
104415 
062706 


012546 
012746 
012746 
010600 
104415 
062706 


012546 
012746 
012746 
010600 
104415 
062706 


012546 
012746 
012746 
010600 
104415 
062706 
022737 
001402 
000137 


012746 


015023 
000002 


000006 


015070 
000002 


000006 


015135 
000002 


000006 


015202 
000002 


000006 


015247 
000002 


000006 


015314 
000002 


000006 


015361 
000002 


000906 
000001 
014540 
014542 
000001 


000004 





002134 


40$: 
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CRS)+,-CSP) 
@MESHEA, -( SP) 
#2,-(SP) 
SP ,RO 
C$PNTX 

oSP 
@DATAFL,CRS)+ 
CR5)+, -CSP) 
@DATAFL, -CSP) 
#2, -(SP) 
SP 


#6 ,SP 
#RBPCRA, (R5)+ 
(R5)+,-CSP) 
gt aa 


%6 ,SP 
#XSOCON, (R5)+ 
CRS5)+,-CSP) 
#XSOCON, -( SP) 
#2,-(SP> 


#6 , SP 
#XS1CON, (R5)+ 
(RS)+,-CSP) 
#XS1CON, -(SP) 


#6 ,SP 
#XS2CON, (R5)+ 
C(R5)+,-CSP) 
#XS2CON, -( SP) 
#2,-(SP) 

SP ,RO 

C$PNTX 

#6 , SP 
#XS3CON, (R5)+ 
CRS)+,-CSP) 
#XS3CON, -(SP) 
#2, -(SP) 


#1. TRANSTST 
40$ 


50$ 

#RAMFHR 
#RAMFHR, -C SP) 
#1,-CSP) 

SP ,RO 

C$PNTX 

#4,SP 


Page 53-1 


sPRINT 


sPRINT 


sPRINT 


sPRINT 


sPRINT 


;PRINT 


sCHECK FOR RAM DUMP REQUIRED 
:BR, IF REQUIRED 
;JMP IF NO DUMP 


“DATA FIELD LENGTH 


“RESIDUAL BYTE COUNTER 


“XSTATO CONTENTS 


"XSTAT1 CONTENTS 


"XSTAT2 CONTENTS 


"XSTAT3 CONTENTS 


uw 
: 


=" 






SEQ 0072 








CZTKHB TK-25 FRT END FUNC 04 
PRMESS - PRINT CONTENTS OF MESSAGE BUFFER 


2588 014454 
2589 014462 
2590 014470 
2591 014474 
2592 014502 
2593 014506 
2594 014514 
2595 014520 
2596 014526 
2597 014534 
2598 014540 
2599 014542 
2600 014640 
2601 014720 
2602 014765 


2604 015023 
2605 015070 
2606 015135 
2607 015202 
2608 015247 
2609 015314 
2610 015361 


012737 
012737 
004737 
012737 
004737 


000010 
000020 
010636 
000040 
010636 
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002250 
011020 


011020 
011020 


002250 
011020 


50$: 


RAMFHR: . 
MESBFN: . 
PROASC: . 
PR1IASC: . 


MESHEA: 

DATAFL: . 
RBPCRA: . 
XSOCON: . 
XSiCON: . 
XS2CON: . 
XS3CON: . 


#8. ,RAMSIZ 
#20, RAMHLD 
PC ,RAMER 
#40, RAMHLD 
PC ,RAMER 
#60, RAMHLD 
PC ,RAMER 
#16. ,RAMSIZ 
#100 ,RAMHLD 
PC ,RAMER 

PC 


‘SNSA seeeeeeee% SPECIAL CONTROLLER RAM MEMORY DUMP seeaeeeace’ 
‘sNSA MESSAGE BUFFER CONTENTS PROBABLY NOT VALID‘ 
‘SNSA Message Buffer Address = #0105’ 
‘SNSA Message Buffer Contents: ' 


e Buffer Header 
ield Length 
‘SNSA Residual Byte Counter 
‘sNSA XSTATO Contents 

‘SNSA XSTATL Contents 

‘sNSA XSTAT2 Contents 

‘sSNSA XSTAT3 Contents 


‘SNSA Mess 
‘SNSA Data 


SEQ 0073 











sRAM FIELD IS 8 BYTES LONG 
sFIELD STARTS AT 20 OCTAL (10 HEX) 
sREAD AND PRINT THEM 
sFIELD STARTS AT 40 OCTAL (20 HEX) 
sREAD AND PRINT THEM 
sFIELD STARTS AT 60 OCTAL (30 HEX) 
sREAD AND PRINT THEM 
sRAM FIELD IS SIXTEEN BYTES LONG 
sFIELD STARTS AT 100 OCTAL (40 HEX) 
sREAD AND PRINT THEM 
sRETURN 


#06‘ 
#06‘ 
#06’ 
#06' 
#06' 
#06' 
#06’ 





CZTKHB TK-25 FRT END FUNC 04 
PRMSGEXP - PRINT EXPD/RECV MESSAGE BUFFERS 


2613 


0 
2636 015476 


015570 
2644 015574 
2645 015576 
2646 015600 
2647 015602 
2648 015604 


010005 
013700 
010004 
013701 
006100 
006101 


010446 
010146 
012746 
012746 
010600 
104415 
062706 


012746 
012746 
010600 
104415 
062706 
005004 
012701 
012702 
011100 
011203 


010346 


002254 
002252 


015606 
000003 
000010 
015653 
000001 
000004 


002270 
002434 


015711 
000005 


000014 
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ts -SBTTL PRMSGEXP - PRINT EXPD/RECV MESSAGE BUFFERS 
3* 
; 
sROUTINE TO PRINT EXPECTED AND RECEIVED MESSAGE BUFFERS 
$ 
: RO _ + NUMBER OF WORDS IN BUFFER 


; 
sIMPLICIT INPUTS: 


3 EXPMSG - EXPECTED MESSAGE BUFFER 
3 RECMSG - RECEIVED MESSAGE BUFFER 
3 RCVHIADD- RECEIVED MESSAGE BUFFER HIGH ORDER ADDRESS 
3 RCVLOADD- RECEIVED MESSAGE BUFFER LOW ORDER ADDRESS 
ied 
PRMSGEXP: : 
SAVREG sSAVE R1-RS UNTIL NEXT RETURN 
MOV RO,RS ;SAVE NUMBER OF WORDS 
MOV RCVLOADD ,RO ;GET RECV LOW ADDRESS 
MOV RO,R4 sCOPY LOW ADDRESS 
MOV RCVHIADD ,R1 ;GET RECV HIGH ADDRESS 
ROL RO sSHIFT BITiS TO C BIT 
ROL Ri sSHIFT TO HIGH ORDER FOR PRINTOUT 


PRINTX #PRMSGO,R1,R4 
MOV R4,-CSP> 


sPRINT MESSAGE BUFFER ADDRESS 


sPRINT HEADER FOR CONTENTS 
MOV @PRMSG1, -(SP) 
MOV #1,-(SP) 


SEQ 0074 


MOV SP ,RO 

TRAP C$PNTX 

ADD #4 ,SP 

CLR R4 sNUMBER OF THE CURRENT WORD 

MOV #EXPMSG,R1 sGET EXPD BUFFER ADDRESS 

MOV #RECMSG ,R2 ;sGET RECV BUFFER ADDRESS 
20$: MOV (R1),RO sGET EXPD 

MOV (R2),R3 sGET RECV 

XOR RO ,R3 sXOR EXPD/RECV 

PRINTX #PRMSG2,R4,(R1)+,(R2)+,R3 

MOV R3,-(SP) 

MOV (R2)+,-CSP) 


MOV (R1)+,-(SP) 

MOV R4,-(SP) 

MOV @PRMSG2, -C SP) 

MOV #5,-CSP) 

MOV SP ,RO 

TRAP C$PNTX 

ADD #14,SP 

INC 4 sNUMBER OF THE NEXT 

CMP R4,R5 sDONE ALL YET? 

BGE 50$ ;BR IF YES 

BR 20$ 3D0 ANOTHER 
50$: RTS PC sRETURN 








CZTKHB TK-25 FRT END FUNC 04 


2649 
2650 015606 
2651 015653 
2652 015711 
2653 


2654 
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PRMSGEXP - PRINT EXPD/RECV MESSAGE BUFFERS 


045 PRMSGO: .ASCIZ ‘NSA Message Buffer Address = #01805’ 
045 PRMSG1: .ASCIZ ‘NSA Message Buffer Contents: ' 
045 PRMSG2: — ‘SNSA = =©WORD #8D2SA EXPD: SO068A RECV: SO06SA XOR: 806’ 





SEQ 0075 








CZTKHB TK-25 FRT END FUNC 04 
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PRBYTEXP - PRINT ERROR BYTES IN EXP/REC MESSAGE BUFFER SEQ 0076 
ots -SBTTL PRBYTEXP - PRINT ERROR BYTES IN EXP/REC MESSAGE BUFFER 
: + 
2658 
2659 S ROUTINE TO PRINT ERROR BYTES IN MESSAGE BUFFERS 
oeee 3 ONLY THE FIRST 8 ERRORS ENCOUNTERED ARE PRINTED DUE TO SCREEN SPACE 
ot} H RO - NUMBER OF BYTES IN BUFFER 
F 
2664 sIMPLICIT INPUTS: 
2665 ’ 
2666 8 EXPMSG - EXPECTED MESSAGE BUFFER 
ort 3 RECMSG - RECEIVED MESSAGE BUFFER 
+ - 
2669 015776 PRBYTEXP:: 
2670 015776 SAVREG sSAVE R1-RS UNTIL NEXT RETURN 
2671 016002 010005 MOV RO,RS sSAVE NUMBER OF BYTES 
2672 016004 005037 002266 CLR PRMNO sINIT ERROR COUNT 
2673 016010 005004 CLR R4 sNUMBER OF THE CURRENT BYTE 
2674 016012 012701 002270 MOV #EXPMSG,R1 sGET EXPD BUFFER ADDRESS 
2675 016016 012702 002434 MOV #RECMSG, R2 ;GET RECV BUFFER ADDRESS 
2676 016022 111100 208: MOVB CR1),RO sGET EXPD BYTE 
2677 016024 042700 177400 BIC #tC<377>,R0 ;CLEAR UPPER BYTE 
2678 016030 110037 016344 MOVB RO, PRBEXP sSAVE FOR ERROR REPORT 
2679 016034 111203 MOVB C(R2),R3 ;GET RECV BYTE 
2680 016036 042703 177400 BIC #tC<377>,R3 ;CLEAR UPPER BYTE 
2681 016042 110337 016346 MOVB R3,PRBREC sFOR ERROR REPORT 
2682 016046 xOR RO,R3 ;XOR EXPD/RECV 
2683 016056 122122 CMPB (R1)+,CR2)+ sEXPD = RECV? 
2684 016060 001431 BEQ 30$ ;BR IF YES 
2685 016062 005237 002266 INC PRMNO sUPDATE ERROR COUNT 
2686 016066 023727 002266 000010 CMP PRMNO, #8. sPRINTED 8? 
2687 016074 101023 BHI 30$ ;BR IF YES 
2688 016076 27$: PRINTX #PRBMSG,R4, PRBEXP, PRBREC,R3 
016076 010346 MOV R3,-(SP) 
016100 013746 016346 MOV PRBREC, -(SP) 
016104 013746 016344 MOV PRBEXP , -( SP) 
016110 010446 MOV R4,-(SP) 
016112 012746 016212 MOV #PRBMSG, -( SP) 
016116 012746 000005 MOV #5,-(SP 
016122 010600 MOV SP ,RO 
016124 104415 TRAP C$PNTX 
016126 062706 000014 ADD #14,SP 
2689 016132 FORCEXIT 50$ ;98D 
2690 016142 000404 BR 35$ ;88D 
2691 016144 30$: 
2692 016144 FORCERROR 27$,NOTSSR 3980 
2693 016154 358: 3:98D 
2694 016154 005204 INC R4 sNUMBER OF THE NEXT 
2695 016156 020405 CMP R4,R5 sDONE ALL YET? 
2696 016160 002001 BGE 50$ ;BR IF YES 
2697 016162 000717 BR 20$ 300 ANOTHER 
2698 016164 50$: PRINTX #@PRBTOT,PRMNO sPRINT TOTAL ERROR COUNT 
016164 013746 002266 MOV PRMNO, -( SP) 
016170 012746 016277 MOV @PRBTOT, -( SP) 
016174 012746 000002 MOV #2,-(SP) 
016200 010600 MOV SP RO 
016202 104415 TRAP C$PNTX 


— 
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PRBYTEXP - PRINT ERROR BYTES IN EXP/REC MESSAGE BUFF SEQ 0077 
016204 062706 000006 ADD #6 ,SP 
2699 016210 000207 RTS PC sRETURN 


2700 
2701 016212 045 116 045 PRBMSG: .ASCIZ ‘SNSA BYTE @8D28A EXPD: SO03SA RECV: SO3SA XOR: #03’ 


2702 016277 045 116 045 PRBTOT: .ASCIZ ‘sNSA NUMBER OF BYTES IN ERROR = D2‘ 


2703 -EVEN 
2704 016344 000000 PRBEXP: .WORD 0 sEXPD 
ores 016346 000000 PRBREC: .WORD 0 sRECV 








CZTKHB TK-25 FRT END FUNC 04 


2720 016350 

016350 
2721 016350 004737 007470 
2722 016354 

016354 

016354 104423 


a 
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EXPREC - PRINT EXPD/RECV WORD DATA 


-SBTTL EXPREC - PRINT EXPD/RECV WORD DATA 


3* 


é 
sPRINT ROUTINE TO DISPLAY EXPD/RECV DATA 


F 
; INPUTS: 
t 
3 R1 RECEIVED DATA 
3 R2 EXPECTED DATA 
3 
37 
BGNMSG EXPREC 
EXPREC:: 
JSR PC ,PRIXOR sPRINT THE DATA 
ENDMSG 
L10017: 
TRAP C$MSG 


SEQ 0078 


ye aaa 


SS RSS ¢ SRS STAR RR EE A ES 
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EXPBREC - PRINT EXPD/RECV BYTE DATA SEQ 0079 


4 -SBTTL EXPBREC - PRINT EXPD/RECV BYTE DATA 
3¢ 
2728 3 
p44 sPRINT ROUTINE TO DISPLAY BYTE EXPD/RECV DATA 
8 
2731 3 
2732 s INPUTS: 
3 





3 R1 RECEIVED DATA BYTE 
2735 ; R2 EXPECTED DATA BYTE 

; 

; 


2739 0:6356 BGNMSG EXPBREC 

016356 EXPBREC:: 
2740 016356 004737 007340 JSR PC ,PRIBXOR sPRINT THE DATA 
2741 016362 ENDMSG 

016362 L10020: 

016362 104423 TRAP C$mMSG 


bee -SBTTL RAMERR - PRINT RAM AND PACKET DATA 
3¢ 


2749 SPRINT ROUTINE TO DISPLAY RAM/PACKET DATA 

2751 SINPUTS: 

2753 : Ra POINTER TO COMMAND PACKET 

2755 SIMPLICIT INPUTS: 

; RAMDATA DATA AS READ FROM THE RAM 


RAMSIZ NUMBER OF BYTES IN PACKET 
IF RAMSIZ=0 THEN DEFAULT TO 8. 


RAMSIZ SET TO 0 


; 
; 
; 
i 
2761 sIMPLICIT OUTPUTS: 
; 
; 
; 


2766 016364 BGNMSG RAMERR 

016364 RAMERR: : 
2767 015364 004737 013630 JSR PC ,PRAMPKT sPRINT RAM/PACKET DATA 
2768 016370 ENOMSG 

016370 L10021: 

016370 104423 TRAP C$MSG 


are -SBTTL RAMTADD - PRINT TEST ADDRESS, RAM AND PACKET DATA 
3° 
3 
2774 sPRINT ROUTINE TO DISPLAY RAM/PACKET DATA 
; 
2776 s INPUTS: 








chee TK-25 FRT END FUNC 04 


MTADD - PRINT TEST ADDRESS, RAM AND PACKET DATA 


2777 
2778 
2779 
2780 
2781 
2782 
2783 


2793 016372 

016372 
2794 016372 004737 010022 
2795 016376 004737 013630 
2796 016402 

016402 

016402 104423 


2811 016404 

016404 
2812 016404 042701 177400 
2813 016410 042702 177400 
28614 016414 004737 007614 
2815 016420 004737 007470 
28616 016424 

016424 

015424 104423 


Bk ati ae eae 


R4 


RAMDATA 
RAMSIZ 


ERRHI 
ERRLO 


RAMSIZ 


NMSG 


-SBTTL 
3° 


; 
sPRINT ROUTINE 


: 
; INPUTS: 
Hy 
; Ri 
; R2 
: R4 
3 
GNMSG 
RAME XP 
BIC 
BIC 
JSR 
JSR 
ENDMSG 
L10023: 
RAP 
SBTTL 


3* 


; 
sPRINT ROUTINE 
sAND TIMER A,B 


; INPUTS: 

; 

; R1 
3 R2 
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POINTER TO COMMAND PACKET 


IMPLICIT INPUTS: 


DATA AS READ FROM THE RAM 
NUMBER OF BYTES IN PACKET 

IF RAMSIZ=0 THEN DEFAULT TO 8. 
HIGH ORDER TEST ADDRESS 

LOW ORDER TEST ADDRESS 


LMPLICIT OUTPUTS: 


SET TO 0 

RAMT ADD 

PC ,PRITADD sPRINT TEST ADORESS 

PC ,PRAMPKT sPRINT RAM/PACKET DATA 
C$MSG 


RAMEXP - PRINT RAM EXPD/RECV DATA 


TO DISPLAY EXPD/RECV DATA 


RECEIVED DATA 
EXPECTED DATA 
CONTROLLER RAM ADDRESS 


RAME XP 

@tC<377>,R1 sSAVE EXPD RAM DATA BYTE 
@tC<377>,R2 sSAVE EXPD RAM DATA BYTE 
PC ,,PRIRAM PRINT THE RAM ADDRESS 
PC ,PRIXOR sPRINT THE DATA 

C$MSG 


TIMEXP - PRINT TIMER A,B AND EXP/REC 


TO DISPLAY EXPD/RECV DATA 


HEADER MESSAGE 


RECEIVED DATA 
EXPECTED DATA 


SEQ 0080 
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TIMEXP - PRINT TIMER A,B AND EXP/REC SEQ 0081 
2828 t- 
2829 
2830 016426 BGNMSG TIMEXP 
016426 TIMEXP:: 
2831 016426 PRINTX #@TIMSGO sPRINT HEADER 
016426 012746 016454 MOV #TIMSGO, -( SP) 
016432 012746 000001 MOV #1,-(SP) 
016436 010600 MOV SP RO 
016440 104415 TRAP CSPNTX 
016442 062706 000004 ADO 04,SP 
2832 016446 004737 007470 JSR PC ,PRIXOR ;PRINT THE DATA 
2833 016452 ENDMSG 
016452 L10024: 
016452 104423 TRAP C$MSG 
2834 
2835 


2836 016454 045 116 045 i -ASCIZ ‘sNSA TIMER A STATUS IS IN BIT 38NSA TIMER B STATUS IS IN BIT 2° 





CZTKHB TK-25 FRT END FUNC 04 
BADSSR - PRINT TSSR ERRORS ON DATA TRANSFERS 


2856 
2857 
2858 


2859 
2860 


016554 
016554 
016554 
016556 
016562 
016562 
016564 
016570 
016574 
016576 
016600 
016604 
016606 
016612 
016612 
016612 
016614 


010246 
042702 


010246 
012746 
012746 
010600 
104414 
062706 
012602 
004737 


104423 
045 





177400 


016614 
000002 


000006 
005270 


116 


rr 
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-SBTTL BADSSR - PRINT TSSR ERRORS ON DATA TRANSFERS 


3? 

‘ 

sPRINT ROUTINE 
3 

s INPUTS: 


: Ri 
R2 


L10025: 
045 XFERASC: 


FOR TSSR ERRORS ON DATA TRANSFERS 


CONTENTS 


OF TSSR 


DATA WRITTEN (8 BITS) 


BADSSR 
R2, -(SP) 


sSAVE DATA TRANSFERRED 


#177400,R2 sGET JUST ONE BYTE 


@XFERASC 
R2,-(SP) 
#XFERASC 
42, -(SP) 
SP 


»R2 
’ -(SP) 


sRESTORE R2 


PC ,PRITSSR sDECODE TSSR CONTENTS 


C$MSG 
-ASCIZ 


‘SNSA Data Transferred = #03’ 


SEQ 0082 


CZTKHB TK-25 FRT END FUNC 04 





GLOBAL SUBROUTINES SECTION 


2897 016650 
2898 016650 
2899 016654 
2900 016662 
2901 016666 
2902 016672 
2903 016674 
2904 016700 
2905 016704 
2906 016706 
2907 015710 
2908 016712 
2909 016714 
2910 016716 


012765 
004737 
016500 
010004 
042704 
052704 
020400 
001402 
000241 
000401 
000261 
000207 


000000 000000 
017124 
000000 


176277 
002200 
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-SBTTL GLOBAL SUBROUTINES SECTION 


tee 
; THE GLOBAL SUBROUTINES SECTION CONTAINS THE SUBROUTINES 
; THAT ARE USED IN MORE THAN ONE TEST. 

gee 


-SBT1 SOFINIT - SOFT INITIALIZE OF CONTROLLER 
3* 


; 

sROUTINE TO DO A SOFT INITIALIZE OF THE CONTROLLER 

sBY WRITING INTO THE TSSR REGISTER. AFTER THE INIT, 
sTHE TSSR REGISTER IS TESTED FOR ERRORS. ANY ERRORS 
sDETECTED SHOULD BE TREATED AS DEVICE FATAL ERRORS. 


SINPUTS: 
; RS ADDRESS OF FIRST REGISTER 
;OUTPUTS: 

RO CONTENTS OF TSSR, IF ERROR 


CARRY SET IF INIT WAS OKAY 
CLEAR IF FATAL ERROR 


sCALLING SEQUENCE: 


=e ee ee es oe a 


Hy 

3 MOV #ADDRESS ,R5 

3 JSR PC ,SOF INIT 

3 BCS CONTINUE 

3 ERRDF ;REPORT FATAL ERROR 

3° 

SOFINIT:: 
SAVREG ; SAVE THE REGISTERS 
MOV #0, TSSRCRS) ; DO THE INIT. 
JSR PC ,WAITF ; WAIT FOR SSR 
MOV TSSRCRS),RO ;GET THE TSSR REGISTER 
MOV RO,R4 ;START SETUP OF EXPECTED TSSR 
BIC #tC<HIADDR!OFL>,R4 ;CLEAR OUT UNUSED BITS 
BIS #SSR!NBA,R4 ;R4 HAS EXPECTED CONTENTS 
CMP R4,RO sONLY EXPECTED BITS SET ? 
BEQ 5$ ;BRANCH IF OKAY 
CLC ;CLEAR THE CARRY FOR ERROR 
BR 10$ :GO TO EXIT 

5$: SEC ;SET THE CARRY BIT 

10$: RTS PC sRETURN TO CALLER 


SEQ 0083 


CZTKHB TK-25 FRT END FUNC @4 
- CHECK TSSR FOR AMBIGUITY 


CHKAMB 


2912 
2913 
2914 
2915 
2916 
2917 
2918 
2919 
2920 
2921 
2922 
2923 
2924 
2925 
2926 
2927 
2928 
2929 
2930 
2931 
2932 
2933 


016720 
016720 
016724 
016726 
016732 
016734 
016740 
016742 
016744 
016750 
016752 
016756 
016760 
016764 
016770 
016772 
016774 
017000 
017002 
017006 
017010 
017012 
017014 
017016 





010004 
032700 
001004 
032700 
001023 
000424 
032700 
001011 
032700 
001414 
042704 
020427 
001007 
000410 
032700 
001405 
032700 
001002 
000241 
000401 
000261 
000207 





100000 
174077 


000200 
000040 
177761 
000016 
000040 
000006 





-SBTTL 


3¢ 


é 
sTHIS ROUTINE TESTS THE CONTENTS OF THE TSSR REGISTER 


sFOR AMBIGUITY 
SINPUT: 

RO 
SOUTPUT: 

RO 

; CARRY 
.~ 


CHKAMB : 
5$: BIT 


10$: BIT 


40$: CLC 


45$: SEC 
50$: RTS 
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CHKAMB 


CONTENTS OF TSSR 


CONTENTS OF TSSR 


SET - NO AMBIGUITY 
CLR - AMBIGUOUS CONTENTS 


RO,R4 
#SC,RO 
S$ 


#tC<NBA!OFL!SSR! 
40$ 


40 
#tCTERCLS,R4 
R4 , #16 

40$ 

45$ 

#BITS,RO 

5$ 


4 
#BIT2!BIT1,RO 
45$ 


50$ 
PC 


- CHECK TSSR FOR AMBIGUITY. 


HIADDR> ,RO 















SEQ 0084 


sSAVE THE GENERAL REGISTERS 
sCONTENTS OF TSSR 

sIS BIT 15 SET ? 

sBRANCH IF YES 

sANY OTHER BITS SET ? 
sMUST BE AN ERROR 

sRETURN WITH SUCCESS 

sIS READY BIT SET ? 

sBRANCH IF READY BIT IS SET. 
sIS FATAL ERROR BIT SET ? 
sERROR IF NOT 

sCLEAR ALL BUT TERMINATION CODE 
sALL_ THREE BITS MUST BE SET 
sERROR IF NOT SET 

OK IF ALL ARE SET 

sIS FATAL ERROR BIT SET ? 
sERROR IF BIT IS SET WITH SSR 
:IS THIS A FUNCTION REJECT 

;BR, IF TSSR IS OK 

sAMBIGUOUS CONTENTS 


SHOW SUCCESS - NO AMBIGUITY 
sRETURN TO CALLER 


CZTKHB TK-25 FRT END FUNC @4 





ENAINT,OSBINT - ENABLE/DISABLE INTERRUPTS 


2971 017020 
2973 017021 


2976 017022 
2978 017024 


2981 017026 
2982 017030 
2983 017034 
2984 017040 
2985 017044 
2986 017046 
2987 017050 
2988 017056 


2991 017060 
2992 017062 
2993 017070 


000200 
000001 


000 
000 


000000 
000000 


010046 
013700 
012720 
012720 
012600 
011646 
012766 
000002 


011646 
012766 
000002 


002160 
017072 
000340 


000000 000002 


000340 000002 
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-SBTTL ENAINT,OSBINT - ENABLE/DISABLE INTERRUPTS 
DEFAULT DISPLAY INTERRUPT HANDLERS. 


; 

; IF DISPLAY 
; OTHERWISE, 
; 


TIME-OUT, REPORT DEV FATAL, AND ABORT PASS. 
SAVE DPU REGISTERS AND DISMISS. 


; BIT DEFINITIONS FOR “INTMASK” AND “INTFLAG” BYTES: 


IOKCKIN=B1T7 ; DON'T CHECK FOR BAD INTERRUPTS -- TEST WILL. 


IOKS 


INTM 


TP=BITO ; EXPECT “STOP” INTERRUPT. 


INTERRUPT MASK -- SAYS EXPECTING INTERRUPTS 
ASK -BYTE 0 


S INTERRUPT FLAG y~ la - GOT ONE CIF POSITIVE) 


INTFLAG: 


: SAVED aa 


1 TVEC: .WOR 
;S4VE CPU PC 


I'vCPC: .WORD 0 


; SUBROUTINE 
ENAINT: MOV 
MOV 


; SUBROUTINE 
DSBINT: MOV 
MOV 
RTI 


TO ENABLE INTERRUPTS: 


RO, -(SP> SAVE RO 

IVEC,RO sGET POINTER TO VECTORS 
@INTR,(CRO)+ sSET UP INTERRUPT VECTOR 
#PRIO7 ,CRO)+ 

(SP)+,RO sRESTORE RO 

(SP),-CSP) 

#0,2(SP) sSET CPU TO LEVEL 0 


TG DISABLE INTERRUPTS (RAISE PRIORITY TO LEVEL 7) 
SP),-(SP) 
#PRIO7,2¢SP) 





SEQ 0085 











CZTKHB TK-25 FRT END FUNC 04 
INTR - INTERRUPT HANDLERS 


2998 017072 

017072 
2999 017072 
3000 017100 
3001 017104 
3002 017112 
3003 017114 


3006 017122 
3007 017122 
017122 
017122 


012737 
105037 
132737 
001003 
152737 


000002 


000001 
017021 
000001 


000001 
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002174 
017020 
017021 


INTR:: 


-SBTTL 
BGNSRV 





SEQ 0086 
INTR - INTERRUPT HANDLERS 
INTR sDEFINE INTERRUPT ENTRY 
INTFLAG  SCLEAR-FLAG. TO SAY WE. GOT INTERRUPT. 


#IOKSTP,INTMASK ;EXPECTING STOP INTERRUPT? 
i$ ;BR IF YES 
#IOKSTP,INTFLAG ;NO. SET THE ERROR FLAG. 


;SAVE REGISTERS, MSG BUFFER, ETC. 
1$: 


L10026 


ENDSRV 
” RTI 


CZTKHB TK-25 FRT END FUNC @4 


WAITF 


3011 
3012 
3013 


3027 
3028 
3029 
3030 
3031 


3032 


3033 
3034 
3035 
3036 
3037 
3038 
3039 
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- WAIT FOR SUBSYSTEM READY 


017124 
017130 
017130 
017134 
017136 
017142 
017144 
017150 
017152 
017156 
017160 
017164 


017166 
017170 
017170 
017174 
017176 
017202 
017204 
017210 
017212 
017216 
017220 
017220 
017222 
017224 
017226 
017230 
017232 
017234 
017236 


012746 
012727 


100421 


177776 
000250 
002116 
177772 
177756 
000000 


000250 
002116 
177772 
177756 





-SBTTL WAITF 


; 

; INPUTS: 
é 

3 RS 
; 
;OUTPUTS: 
3 
; RO 

3 CARRY 
F 

3 
WAITF:: 


2s: MOV 


3$: SEC 
4$: DEC 


ADDRESS OF FIRST DEVICE REGISTER 


CONTENTS OF LAST TSSR READ 
SET - READY BIT SET 
CLR - TIMEOUT WAITING FOR READY 


#177776, -CSP) 


250 
ee 


eran 
-6(PC) 
.-4 
-22(PC) 
TSSRC(RS),RO 
RO 
3$ 
250 
#250, (PCs 
LSOLY. CPC)» 
-6(PC) 

4 


“22¢PC) 
. -20 
C$BRK 
(SP) 

2$ 

4$ 


(SP)-+ 
PC 


- WAIT FOR SUBSYSTEM READY 
; 
; SUBROUTINE TO WAIT FOR THE SUBSYSTEM READY FLAG 








SEQ 0087 


sBIG MSEC TIMER 
sDELAY 100MS 


sREAD THE TSSR REGISTER 
sTEST FO? READY BIT SET 


; EXIT ON STOP FLAG. 
; WAIT 100 MSEC 


; 90 A SUPVSR BREAK FIRST. 


sREDUCE DELAY COUNT 

sRETRY UNTIL TIMER EXPIRES 

; C = 0, CONTROLLER STILL RUNNING... 

3...OR HUNG-UP, 

; C = 1, CONTROLLER IS STOPPED. 

sRESTORE STACK WITHOUT CHANGING CARRY BIT 


CZTKHB TK-25 FRT END FUNC @4 
CHKTSSR - CHECK TSSR FOR READY 


017240 
017240 
017244 
017246 
017252 
017254 
017260 
017262 
017266 
017270 
017272 
017274 
017276 


004737 
103014 
004737 
193006 
032700 
001405 
032700 
001402 
000241 
000401 
000261 
000207 


017124 
016720 
100000 
074000 





MACRO YOS.02 Tuesday 25-Jun-85 10:28 Page 64 


-SBTTL CHKTSSR - CHECK TSSR FOR READY 
3* 


5 
sTHIS ROUTINE WAITS FOR READY IN THE TSSR 
sAND TESTS FOR AMBIGUOUS BIT SETTINGS IN TSSR. 


3 
INPUT: 
F 
H RS ADDRESS OF CSR REGISTERS 
;OUTPUT 
F 
3 RO CONTENTS OF TSSR 
; CARRY SET - OKAY 
3 CLR - NOT READY AMBIGUOUS, OR SC SET 
3 
g= 
CHKTSSR: 
JSR PC ,WAITF sWAIT FOR READY 
BCC 20$ sBRANCH IF TIME OUT 
JSR PC ,CHKAMB :TSSR AMBIGOUS? 
BCC 10$ ;BR IF YES 
BIT #SC,RO ;SPECIAL CONDITION SET? 
BEQ i5$ ;BR IF NO 
BIT #<SCE!BIE!RMR!NXM>,RO sANY ERROR BITS SET? 
BEQ 15$ :BR IF NO 
10$: CLC ;SET FAILURE 
BR 20$ 3 
15$: SEC ;SET SUCCESS 


20$: RTS PC sRETURN TO CALLER 





SEQ 0088 


a TK-25 FRT END FUNC 04 


— 


3074 
3075 
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- CHECK FOR NONEXISTENT MEMORY 


017300 
017306 
017314 
017316 


017320 
017322 
017324 
017330 


017332 
017334 
017340 
017342 
017342 
017346 
017350 
017352 
017354 
017356 


017360 
017360 
017364 
017366 
017372 
017374 
017400 
017402 
017404 
017406 
017410 


012737 
012737 
005003 
005711 


020102 
001407 
062701 
000772 


005103 
012716 
000002 


012700 
104436 
005703 
001401 
000261 
000207 


005737 
001006 
005737 
100403 
005337 
001002 
000241 
000401 
000261 
000207 


7 
3 
;CALL: 


017332 000004 XNXM: 
000200 000006 


000002 


017342 


000004 


002136 
002154 
002166 





2s: 


3$: 


s¢ 
; 
; 
; 
; 
; 
; 
T 


STLOOP: : 


1$: 


2s: 
3$: 


-SBTTL 





XNXM - CHECK FOR NONEXISTENT MEMORY 


3¢ 

; ROUTINE TO TEST FOR A NEXM IN THE RANGE (R1) THRU (R2). 
; ON RETURN, IF “C” = 1, (R1) = NEXM ADDRESS. 

"C” = 0, ALL ADDRESSES OK. 


MOV ADR1,R1 
MOV ADR2,R2 
JSR PC,NXM 
RETURN 
MOV #2$,8%4 
MOV #PRIO4 , 806 
CLR R3 
TST (R1) 
CMP R1,R2 
BEQ 3$ 
ADD #2,R1 
BR i$ 
COM R3 
MOV #3$,(SP) 
RTI 
CLRVEC #4 

V #4 ,RO 
TRAP CSCVEC 
TST 3 
BEQ +4 
SEC 
RTS PC 


sTEST “C” AND PROCEED. 
; SET BUSERR VECTOR. 


FLAG. 
;TEST THE ADDRESS(ES). 


sIF ANY TRAP, CONTINUE AT 2$. 


sOTHERWISE, CONTINUE HERE. 
sBR IF FINISHED (NO NEXM‘S). 
;SET NEXT ADDRESS... 

3...AND CONTINUE. 


sGOT ONE, SET FLAG... 
3...AND DISMISS INTERRUPT... 


;...AND GIVE BACK THE VECTOR. 


sDID WE CATCH ONE ?? 
sNO, “C” = 0, SKIP NEXT. 


sYES, “C” = 1, (Ri) = NEXM ADDR. 


-SBTTL TSTLOOP - CHECK ITERATION COUNT 


SUBROUTINE TO EXECUTE TEST ITERATIONS. 
EXIT WITH “C” SET IF LOOPS ALLOWED AND LOOP COUNT NON-ZERO. 
LOOP COUNTER IS SET BY “BEGIN. TEST” MACRO. 


CALL: LOOPTO ARG 


; ITERATIONS INHIBITED? 
; YES. 


; NO. 
;LOOPS DISALLOWED IN QUICK PASS. 


; BUMP LOOP COUNTER. 
sLOOP DISALLOWED, OR DONE. 
;LOOP ENABLED. 







SEQ 0089 
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TSTLOOP - CHECK ITERATION COUNT SEQ 0090 
3127 
3128 
aie -SBTTL TSTSETUP - PRINT TEST NAME AND INIT ERROR COUNTS 
3* 
3131 ; PRINT THE NUMBER AND NAME OF EACH TEST AS WE GO ALONG. 
3132 ; INCREMENT “TESTK” TO INDICATE THE NUMBER OF TESTS 
3133 ; IN THE CURRENT RUN SEQUENCE. 
at ; CLEAR THE ERROR COUNTER AND SIGNATURE EXTENSION FLAGS. 
F 
3136 INPUT: 
3137 3 
siae 3 RO POINTER TO TEST ID ASCIZ STRING 
3 
3140 ;OUTPUT: 
3141 PF 
tp 8 RS ADDRESS OF FIRST DEVICE REGISTER 
3 
aor sIMPLICIT OUTPUTS: 
14 F 
oee ; TSTCNT UPDATED TO COUNT TESTS PERFORMED SINCE START OR RESTART 
3148 iSIDE EFFECTS: 
3149 F 
3150 F INTERRUPT LEVEL IS RASIED TO LEVEL OF 
3151 8 THE DEVICE UNDER TEST 
3152 ; ; 
3153 s- 
3154 
3155 017412 TSTSETUP:: 
3156 017412 010046 MOV RO,-CSP) sSAVE THE TEST ID MESSAGE 
3157 017414 005037 003112 CLR SIFLAG ; CLEAR “SOFT INIT” FLAG 
3158 017420 005037 017660 CLR ERRK ; CLEAR LOCAL ERROR COUNTER. 
3159 017424 005037 005236 CLR EXTA ; CLEAR ERROR EXTENSION FLAG. 
3160 017430 105037 017020 CLRB INTMASK ; CLEAR INTERRUPT MASK (CHECK ERROR) 
3161 017434 013700 002152 MOV UNITN, RO ; GET THE UNIT NUMBER, 
3162 017440 006300 ASL RO 3; ... AND MAKE IT A WORD OFFSET. 
3163 017442 005737 003066 TST NODEV ; DID STARTUP FIND THE DEVICE? 
3164 017446 001430 BEQ 4s ; BR IF YES 
3165 017450 100010 BPL 3$ ; BR IF NOT IOLE 
3166 017452 052760 160000 003134 BIS #160000, ERTABL(RO) ; FLAG ERROR IN THE ERROR TABLE 
3167 017460 ERRDF 1,NXR,NXRERR ; NO DEVICE HERE -- PRINT IT 
017460 104455 TRAP CSERDF 
017462 000001 -WORD 1 
017464 003642 -WORD NXR 
017466 005202 -WORD NXRERR 
3168 017470 000407 BR 2s 
3169 017472 052760 160001 003134 33: BIS #160001,ERTABL(RO) ; FLAG ERROR IN THE ERROR TABLE 
3170 017500 ERRDF 2,NOINIT ; DEVICE NOT IDLE 
017500 104455 TRAP CSEROF 
017502 000002 -WORD 2 
017504 004237 -WORD NOINIT 
017506 000000 -WORD O 
3171 017510 012737 177777 003064 23: MOV @-1,DUFLG ; DROP THE UNIT 
3172 017516 DODU UNITN 
017516 013700 002152 MOV UNITN,RO 
017522 104451 TRAP CsD0DU 
3173 017524 DOCLN 3; ABORT THE PASS 





eon 








CZTKHB TK-25 FRT END FUNC 04 
TSTSETUP - PRINT TEST NAME AND INIT ERROR COUNTS 


Ce 


017524 
3174 017526 
3175 
3176 017530 
017530 
3177 017532 
3178 017536 
3179 017540 
3180 017542 
017542 
017544 
017550 
017554 
017556 
017560 
3181 017564 
3182 017570 
017570 
017574 
3183 017576 
3184 017600 
3185 017604 
3186 017606 
3187 


104444 
000423 


104421 
032700 
001412 
011600 


001000 


017606 
000002 


000006 
002164 


002162 


002156 
123 
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TRAP 
BR 


4$: RFLAGS 


1$: INC 


S$: TST 


045 TNAM: -ASCIZ 
EV 


CSDCLN 
5$ 


CSRFLA 
@PNT RO 


_— 
‘SSSTSA Test’ 


Page 66-1 


SEQ 0091 


; GET THE OPERATOR FLAGS. 


; PRINT THE TEST NUMBERS? 
; BR IF NO 

sGET THE ID MESSAGE 
sDISPLAY THE TEST ID 


; BUMP TEST COUNTER. 
sPRIORITY THAT OF DEVICE 


sFIX UP THE STACK 
s ADDRESS OF TSV REGISTERS ON UNIBUS 





-_- 


CZ7KHB TK-25 FRT END FUNC 04 
- PRINT ERRORS RECEIVED 


TSTEND 


017622 
017622 
017624 
017630 
017632 
017632 
027636 
017642 
027646 
017650 
027652 
017656 


017660 
017662 
017701 





012737 


104455 
000004 
017701 


020000 


017660 
017662 
000002 


000006 


040 
122 


101 
122 


017660 
002152 
003134 
007777 


002152 
003134 
170000 
002144 
017660 002142 
000040 


177777 003064 
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SEQ 0092 


-SBTTL TSTEND - PRINT ERRORS RECEIVED 


3 
3 AT END OF EACH TEST, PRINT THE NUMBER OF ERRORS RECEIVED 
s IF NORMAL ERROR REPORTING IS DISABLED (FLA:IER). 


i 
TSTEND: RFLAGS RO 
TRAP CSRFLA 
BIT RO, @IER 
BEQ 1s s BR IF “IER” NOT SET. 
PRINTF @€SUM,ERRK s PRINT ERROR COUNT. 
MOV ERRK , -(SP 
MOV @E SUM, -( SP) 
MOV @2,-(SP) 
MOV SP RO 
TRAP CSPNTF 
ADO 06 ,SP 
18: RTS c 
ERRK: 0 s LOCAL ERROR COUNT. 
ESUM: -ASCIZ /#A SDSA ERRORS/ 
EMAXDU: .ASCIZ /ERROR LIMIT REACHED -- DROPPING UNIT/ 
EVEN 
-SBTTL INCERK - INCREMENT LOCAL ERROR COUNT 
3° 
s ROUTINES TO INCREMENT LOCAL ERROR COUNT AND CHECK FOR LIMIT: 
ae 
INCERK: INC ERRK s INCREMENT LOCAL ERROR COUNT 
MOV RO, -(SP) + SAVE RO 
MOV UNITN, RO ; GET UNIT NUMBER, 
ASL 3 ... AND MAKE IT A WORD OFFSET. 
ADD SERTABL, RO ; RO GETS ADDRESS OF ERROR TABLE ENTRY. 
INC CRO) 3 INCREMENT THE DEVICE ERROR COUNT 
BIT #7777,CRO) ; DID WE OVERFLOW THE FIELD? 
BNE i$ ; BR IF NO. 
DEC (RO) s YES -- BACK IT UP TO 7777. 
1s: MOV (SP)+,RO + RESTORE RO 
RTS PC ; RETURN TO CALLER. 
CKEMAX: MOV RO, -(SP) s SAVE RO 
MOV UNITN, RO s GET UNIT NUMBER 
ASL RO ; ... AND MAKE IT A WORD OFFSET 
MOV ERTABL(RO),RO ; GET ERROR TABLE ENTRY 
BIC #170000,RO ; EXTRACT ERROR COUNT FIELD 
CMP RO ,GERRMAX ; IS GLOBAL LIMIT EXCEEDED FOR THIS UNIT? 
BHIS 1$ ; BR IF YES 
CMP ERRK ,LERRMAX s IS LOCAL LIMIT EXCEEDED FOR THIS TEST? 
BLO 2$ :; BR IF NO 
1s: RFLAGS RO ; GET OPERATOR FLAGS 
TRAP CSRFLA 
BIT #IDU,RO s IS OROPPING INHIBITED? 
BNE 2s ; BR IF YES. 
MOV -1,DUFLG s NO -- DROP THE UNIT 
ERRDF  4,EMAXDU 
TRAP CSEROF 
-WORD 4 
-WORD EMAXDU 








CZTKHB TK-25 FRT END FUNC 04 
- INCREMENT LOCAL ERROR COUNT 


INCERK 


3235 


3236 


3237 
3238 
3239 
3240 
3241 
3242 
3243 


020066 
020070 
020070 
020074 
020076 
020076 
020100 
020102 


000000 


013700 
104451 


104444 
012600 
000207 


013701 
006301 
062761 
005237 
023727 
002406 


104421 
032700 
001002 
004737 
000207 


002152 


002152 
000001 


002172 
002172 


040000 
020156 
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-WORD 0 
DODdU UNITN 
MOV UNITN,RO 
TRAP Cs000u 
DOCLN 
TRAP CSOCLN 
2s: MOV (SP)+,RO s RESTORE RO 
RTS PC ; RETURN TO CALLER 
-SBTTL FATCHK - INC FATAL ERRORS AND CHECK FOR LIMIT 
3¢ 
i 
i CHECK FATAL COUNTER, AFTER INC, FOR MORE THAN 25 
; ERRORS AND IF OVER CALL UNIT DROP ROUTINE 
: 
ge 
FATCHK 
SAVREG sBETTER SAVE THE REGISTERS 
MOV UNITN,R1 sPICK UP THE UNIT NUMBER 
ASL R1 sMAKE IT INTO A BYTE OFFSET 
003134 ADD @1,ERTABL(R1)  ;ADD 1 TO THE PROPER UNIT’S ERROR COUNTER 
INC FATFLG sBUMP FATAL ERROR COUNTER 
000031 CMP FATFLG, #25. sCHECK AGAINST 25 
BLT 9$ BR, IF LESS THAN 25 ERRORS 
RFLAGS RO sREAD THE FLAGS INTO RO 
TRAP CSRFLA 
BIT #B1T14,R0 sBR, IF LOOP ON ERROR IS SET 
BNE 9$ sOTHERWISE NEVER BE ABLE TO SCOPE ETC. 
JSR PC ,CKDROP sDROP UNIT IF ALLOWED 
$ RTS PC sRETURN ETC. 


-~ee © 


SEQ 0093 





CZTKMB TK-25 FRT END FUNC 04 








CKOROP - CHECK IF UNIT SHOULD SE DROPPED 


3286 020224 
3287 020224 
3288 020230 


010046 


104421 
032700 
001010 
011600 
012737 


013700 
104451 


104444 
012600 
000207 


004737 
000207 


000040 


177777 003064 
002152 


016650 
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-SBTTL CKDROP ~- CHECK IF UNIT SHOULD BE DROPPED 
‘* 
s CHECK IF UNIT SHOULD BE DROPPED 
CKDROP: MOV RO, -(SP) 
FORCERROR 1$,NOTSSR 
RFLAGS RO 
TRAP CSRFLA 
BIT #IDU,RO 
BNE 1s 
MOV (SP) ,RO 
MOV #-1,DUFLG 
DODU UNITN 
MOV UNITN,RO 
TRAP CsD0DuU 
DOCLN sABORT THE PASS 
TRAP CSOCLN 
18: MOV (SP)+,RO 
RTS PC 
-SBTTL CONFIG - DETERMINE CONFIGURATION OF SYSTEM 


s 
; SUBROUTINE - DETERMINE CONFIGURATION OF TK-25 SYSTEM. 


i 
CONFIG: 


JSR 
RTS 


PC ,,SOFINIT 
PC 


SEQ 0094 








CZTKHB TK-25 FRT END FUNC 04 


KTON,KTOFF 


3297 020232 005737 
3298 020236 001403 
3299 020240 012737 
3300 020246 000207 


3307 020250 005737 
3308 020254 001405 
3309 020256 000240 
3310 020260 000240 
3311 020262 012737 
3312 020270 000207 


003104 
000001 


003104 


000000 
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177572 


177572 


: 
KTON: 


1$: 


i 
; SUBROUTINE - DISABLE MEM MGT. 


F 
KTOFF: 


1$: 


- ENABLE/DISABLE MEMORY MANAGEMENT 
-SBTTL KTON,KTOFF 

; 

; SUBROUTINE - ENABLE MEM MGT. 


TST 
BEQ 


KTFLG 


KTFLG 
is 


#0,SRO 
PC 


- ENABLE/DISABLE MEMORY MANAGEMENT 


GOT KT? 
NO. 
YES. ENABLE KT11. 


GOT KT11? 
NO. 


DISABLE KT. 


SEQ 0095 


CZTKHB TK-25 FRT END FUNC 04 








SETMAP - SETUP PAR6 MAPPING 


3335 020272 
3336 020272 
3337 020276 
3338 020302 
3339 020304 


3344 020336 
3345 020342 
3346 020346 
3347 020350 
3348 020354 
3349 020360 
3350 020364 
3351 020366 
3352 020370 
3353 020372 
3354 020374 


005737 
001433 
010102 
000006 


042701 
020137 
103011 
010137 
042702 
062702 
010200 
000261 
000401 
000241 
000207 


003104 


000177 
003104 


172354 
160000 
140000 
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3¢ 


; 
sTHIS ROUTINE SETS UP KERNEL PAR6 TP HANDLE 
sAN 18 BIT ADDRESS. THE OFFSET INTO THE PAGE 
sIS RETURNED BIASED TO PARG. 


; 
s INPUTS: 
; 
; 
; 


-SBTTL 


RO 
R1 


; 
OUTPUTS: 


; 
3 
: 
SETMAP: 


10$: 
15$: 


SETMAP 


HIGH ORDER ADDRESS BITS 
LOW ORDER ADDRESS BITS 


OFFSET INTO BLOCK WITH PAR6 BIAS (I.E. THE ADDRESS) 
SET IF SUCCESS 
CLR IF ERROR 


#177,R1 
R1,KTFLG 
10$ 

R1, @eKIPARG 
#160000, R2 
#140000, R2 
R2,RO0 


15$ 
PC 


- SETUP PAR6 MAPPING 













SEQ 0096 


sSAVE R1-R4 UNTIL NEXT RETURN 
sSYSTEM HAVE ABOVE 28K? 

;BR IF NO 

;SAVE LOW ORDER BITS 


sCONVERT WORD ADDRESS TO 32W BLOCKS 
sMAKE IT DOUBLE PRECISION 


sALINE FOR LOWER 4K BOUNDARY 
sHIGHER THAN EXISTING MEMORY? 
;BR IF YES 

sSETUP MAPPING REGISTER PAR6 
sSETUP DISPLACEMENT IN PAGE 
sADD IN PAR6 BIAS 
sRETURN IN RO 
sSET SUCCESS 


3 
;SET FAILURE 
sRETURN 


CZTKHB TK-25 FRT END FUNC 04 
FILLMEM - FILL MEMORY WITH BACKGROUND PATTERN 


020376 
020376 
020402 
020406 
020410 
020414 
020420 
020422 
020424 
020426 
020432 
020434 
020440 
020442 


020512 
020516 
020520 
020524 
020526 
020532 
020540 
020546 
020550 
020554 
020560 





004737 
010003 
013701 
013702 
010321 
005302 
003375 
005737 
001452 
004737 
005000 
013701 
000006 


004737 
010320 
020027 
103774 
162700 
062737 
023737 
001402 
000137 
004737 
000207 


020250 


003076 
003100 


003104 
020232 
003110 


020272 
160000 
020000 
000200 172354 
172354 003104 


020516 
020250 
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SEQ 0097 


-SBTTL FILLMEM - FILL MEMORY WITH BACKGROUND PATTERN 
FILL MEMORY WITH A BACKGROUND PATTERN 
INPUTS: 

RO = BACKGROUND PATTERN 


a 


FREE = FIRST LOCATION AVAILABLE TO DIAGNOSTIC 
KTFLG = SET TO HIGHEST MEMORY LOCATION IF > 28K. 
OUTPUTS: 
NONE 
FILLMEM: 
SAVREG sSAVE R1-RS UNTIL NEXT RETURN 
JSR PC ,KTOFF sDISABLE KT. 
MOV RO,R3 sCOPY TEST PATTERN 
MOV FREE ,R1 sGET FIRST FREE LOCATION 
MOV FRESIZ,R2 sSIZE OF FREE SPACE BELOW 28K. 
108: MOV R3,CRi)+ sSTORE A BACKGROUND WORD 
DEC R2 sDONE ALL MEMORY IN FREE SPACE? 
BGT 10$ ;BR IF NO 
TST KTFLG ; GOT KT? 
BEQ 55$ ; NO. GET OUT. 
JSR PC .KTON ; YES. ENABLE KT. 
CLR RO sHIGH ORDER ADDRESS START 
1 — sGET >28K START ADDRESS CIN 32W BLOCKS) 
CLC sCLEAR C BIT 
ROL Ri sCONVERT BLOCKS TO WORDS 
“nan RO sMAKE IT DOUBLE PRECISION 
JSR PC,SETMAP SETUP PAR6 MAPPING REGISTER 
30$: MOV R3,CRO)+ sSTORE TEST PATTERN IN >28K ADDRESS 
CMP RO, #160000 sEND OF PAR6 MAPPING AREA? 
BLO 30$ ;BR IF NO 
SUB #20000 ,RO s;BACKUP INTO PAR6 MAPPING BEGIN 
ADD #200,Q¢KIPAR6 ;POINT TO NEXT 4K BLOCK >28K. 
CMP OeKIPAR6,KTFLG ;END OF MEMORY? 
BEQ 50$ ;BR IF YES 
JMP 30$ sKEEP GOING ON ETC. 
50$: JSR PC ,KTOFF ; DISABLE KT. 
55$: RTS PC 





CZTKHB TK-25 FRT END FUNC 04 
CMPMEM - COMPARE MEMORY TO BACKGROUND PATTERN 


3405 
3406 
3407 
3408 
3409 
3410 
3411 
3412 
3413 
3414 
3415 
3416 
3417 
3418 
3419 
3420 
3421 
3422 
3423 
3424 
3425 
3426 
3427 
3428 
3429 
3430 
3431 
3432 
3433 
3434 
3435 











.SBTTL 
’ 
; INPUTS: 
3 
F RO = BACKGROUND PATTERN 
; FREE 
F KTFLG 
3 
; OUTPUTS: 
3 
8 CARRY 
F CARRY - CLR IF ERROR 
3 
; IMPLICIT OUTPUTS: 
3 
3 ERRHI 
3 ERRLO 
3 EXPD 
F RECV 
020562 CMPMEM: 
020562 SAVREG 
020566 010003 MOV RO,R3 
020570 004737 020250 JSR PC ,KTOFF 
020574 013701 003076 MOV FREE ,R1 
020600 013702 007°0 MOV FRESIZ,R2 
020604 020311 10$: CMP R3,CR1) 
020606 001411 BEQ 15$ 
020610 010137 002206 MOV R1,ERRLO 
020614 005037 002204 CLR ERRHI 
020620 010337 002200 MOV R3,EXPD 
020624 011137 002202 MOV CR1),RECV 
020630 000474 BR 50$ 
020632 005721 15$: TST (R1)+ 
020634 005302 DEC R2 
020636 003362 BGT 10$ 
020640 005737 003104 TST KTFLG 
020644 001472 BEQ 55$ 
020646 004737 020232 JSR PC,KTON 
020652 005000 CLR 
020654 013701 003110 MOV PST32W,R1 
000006 -REPT 6 
ROL R1 
ROL RO 
-ENDR 
020710 042701 000177 BIC #177,R1 
020714 010046 MOV RO,-CSP) 
020716 010146 MOV R1i,-(SP) 
020720 004737 020272 JSR PC ,SETMAP 
020724 010004 MOV 0,R4 
020726 012601 MOV (SP)+,R1 
020730 012600 MOV (SP)+,RO 
020732 020314 30$: CMP R3,(CR4) 
020734 001411 BEQ 32$ 
029736 010037 002204 MOV RO, ERRHI 


MACRO YOS.02 Tuesday 25-Jun-85 10:28 Page 72 





CMPMEM - COMPARE MEMORY TO BACKGROUND PATTERN 
3* 
; COMPARE MEMORY WITH A BACKGROUND PATTERN 


= FIRST LOCATION AVAILABLE TO DIAGNOSTIC 
= SET TO HIGHEST MEMORY LOCATION IF > 28K. 


- SET IF NO ERROR 


- ERROR HIGH ADDRESS 
- ERROR LOW ADDRESS 


- EXPECTED DATA 
- RECEIVED DATA 


sSAVE R1-RS UNTIL NEXT RETURN 
;COPY TEST PATTERN 

sDISABLE KT. 

sGET FIRST FREE LOCATION 

sSIZE OF FREE SPACE BELOW 28K. 
sFREE SPACE LOCATION EQUAL TO EXPD? 
;BR IF YES 

sSAVE ADDRESS IN ERROR 

NO HIGH ADDRESS 

sSAVE EXPD FOR ERROR REPORT 
sSAVE RECV FOR ERROR REPORT 


; 

sPOINT TO NEXT ADDRESS 

sDONE ALL MEMORY IN FREE SPACE? 
;BR IF NO 

; GOT KT? 

; NO. GET OUT. 

; YES. ENABLE KT. 

sHIGH ORDER ADDRESS START 


sGET >28K START ADDRESS CIN 32W BLOCKS) 


s;CONVERT BLOCKS TO WORDS 
sMAKE IT DOUBLE PRECISION 


sALINE 4K BOUNDARY 

sSAVE HIGH ORDER 

sSAVE LOW ORDER 

s;SETUP PAR6 MAPPING REGISTER 
s;COPY ADDRESS BIASED TO PAR6 


sRESTORE LOW ORDER IN NON PAR6 FORMAT 
sRESTORE HIGH ORDER IN NON PAR6 FORMAT 


sABOVE 28K LOCATION EQUAL EXPD? 
3BR IF YES 
sSAVE HIGH ORDER IN ERROR 






SEQ 0098 





CZTKHB TK-25 FRT END FUNC 04 
CMPMEM 


3462 
3463 


020742 
020746 
020752 


021040 


010137 


002206 
002200 
002202 
000002 


000002 
160000 


020000 
000200 
172354 


020250 


020250 
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- COMPARE MEMORY TO BACKGROUND PATTERN 


R1,ERRLO 
R3,EXPD 
(R4),RECV 
50$ 


#2,R1 
RO 


O¢KIPARG ,KTFLG 
30$ 

PC ,KTOFF 

60$ 

PC ,KTOFF 


PC 





SEQ 0099 


sSAVE LOW ORDER IN ERROR 
sSAVE EXPD FOR ERROR REPORT 
sSAVE RECV FOR ERROR REPORT 


PF 
sUPDATE NON PAR6 ADDRESS 

sMAKE IT DOUBLE PRECISION ADD 
sUPDATE PAR FORMAT ADDRESS 

sEND OF PAR6 MAPPING AREA? 

:BR IF NO 

sBACKUP INTO PAR6 MAPPING BEGIN 
sPOINT TO NEXT 4K BLOCK >28K. 
sEND OF MEMORY? 

;BR IF NO 

;TURN OFF MEMORY MAPPING 

;SET FAILURE 


; 
sTURN OFF MEMORY MAPPING 
SET SUCCESS 


CZTKHB TK-25 FRT END FUNC 04 
- SAVE R1-RS ON STACK 


REGSAV 


3483 
3484 
3485 
3486 
3487 
3488 
3489 
3490 


021042 
021042 
021042 
021044 
021046 
021050 
021052 
021054 
021056 
021062 
021064 
021066 
021070 
021072 
021074 
021076 
021076 
021100 


012604 
012605 


104422 
0609207 


000012 
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SEQ 0100 


-SBTTL REGSAV - SAVE R1-RS ON STACK 
3* 


i 
sROUTINE TO 
sSAVE Ri THROUGH RS ON THE STACK 


; 
sCALLING SEQUENCE: 


; JSR RS ,REGSAV 


: 

sTHIS IS A COOROUTINE WHICH TRANSFER CONTROL BACK TO 
sTHE CALLING ROUTINE. AT THE END OF THE CALLING ROUTINE, 
ji Bt Bay RETURNS CONTROL TO THIS ROUTINE TO RESTORE 

; 


; THIS ROUTINE SHOULD ONLY BE CALLED FROM ROUTINES WHICH ARE 
sCALLED VIA A JSR PC INSTRUCTION 

3 

he 


REGSAV: 
BREAK sLOOK FOR CNTL C 
TRAP C$BRK 
MOV R4,-CSP> 
MOV R3,-(SP) 
MOV R2,-CSP) 
MOV R1,-(SP) 
MOV RS, -(SP) 
MOV 10.CSP),RS5 
JSR PC ,@(SP)+ 
MOV (SP)+,R1 
MOV (SP)+,R2 
MOV (SP)+,R3 
MOV (SP)+,R4 
MOV (SP)+,RS 


BREAK sLOOK FOR CNTL C 
TRAP CSBRK 
RTS PC 


CZTKHB TK-25 FRT END FUNC 04 
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GETPAT - GET 8 BIT PATTERN FROM OPERATOR SEQ 0101 
saes -SBTTL GETPAT - GET 8 BIT PATTERN FROM OPERATOR 
3¢ 
3523 Hy 
os s;ROUTINE TO REQUEST AN 8 BIT DATA PATTERN FROM THE OPERATOR 
3 
3526 : INPUTS: 
3527 F 
3528 F NONE. 
3529 : 
3530 ;OUTPUTS: 
3531 F 
st | 3 RO OCTAL NUMBER FROM THE OPERATOR 
H 
3534 ;CALLING SEQUENCE: 
3535 3 
3536 3 JSR PC ,GETPAT 
3537 ; 
3538 3° 
3539 
3540 021102 GETPAT:: 
3541 021102 SAVREG ;SAVE THE GENERAL REGISTERS 
3542 021106 i$: GMANID DATASC,PATDAT,O,377,0,377,NO 
021106 104443 TRAP CS$GMAN 
021110 000406 BR 10000$ 
021112 021136 -WORD PATDAT 
021114 000022 -WORD TS$CODE 
021116 021140 -WORD DATASC 
021120 000377 -WORD 377 
021122 000000 -WORD T$LOLIM 
021124 000377 -WORD TS$HILIM 
021126 10000$: 
3543 021126 BNCOMPLETE 1$ sRETRY IF ERROR 
021126 103367 Bcc i$ 
3544 021130 013700 021136 MOV PATDAT,RO ;DATA PATTERN FROM OPERATOR 
3545 021134 000207 RTS PC sRETURN TO CALLER 
3546 
3547 3+ 
3548 ;LOCAL DATA AREA 
3549 i- 
3550 
3551 021136 000000 PATDAT: .WORD 0 ; TEMPORARY STORAGE FOR DATA 
cae 021140 105 116 124 DATASC: — ‘ENTER DATA PATTERN‘ 


CZTKHB TK-25 FRT END FUNC 04 
GETSEL 


-— 


3576 
3577 


0. 
3578 


3579 
3580 
3581 
3582 


3583 
3584 
3585 
3586 
3587 
3588 
3589 


021355 
021404 


177777 


103352 
013700 
020001 
101411 


012746 
012746 
010600 
104417 
062706 
000735 
000207 

045 

045 

105 


000000 


021350 
000002 


000006 


021404 


021302 
000001 


000004 


116 
116 
156 
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- ISSUE MENU AND GET OPERATOR RESPONSE 


- SBTTL 


SEQ 0102 
GETSEL - ISSUE MENU AND GET OPERATOR RESPONSE 


3* 
sROUTINE TO ISSUE A MENU AND GET 
sTHE OPERATOR'S RESPONSE. 


3 
; INPUTS: 
3 
F RO ADDRESS OF ASCIZ STRING OF MENU 
3 R1 MAXIMUM ALLOWABLE OPERATOR RESPONSE 
3 
;OUTPUTS: 
3 
3 RO NUMBER OF THE OPERATOR'S SELECTION 
aad 
GETSEL:: 
SAVREG sSAVE GENERAL REGISTERS 
MOV RO,R2 ;SAVE THE MENU ADDRESS 
1$: MOV R2,R3 sSTART OF MENU STRING 
2s: TST CR3) sEND OF ASCII ? 
BEQ 3$ ;BRANCH IF ALL LINES DISPLAYED 
PRINTF #SELASC,(R3)+ sDISPLAY THE MENU 
MOV CR3)+,-CSP) 
MOV #SELASC, -( SP) 
MOV #2,-(SP> 
MOV SP ,RO 
TRAP CSPNTF 
ADD #6 ,SP 
BR 2$ 
3$: GMANID MENASC,MENRES,D,-1,0,-1,NO 
TRAP C$GMAN 
BR 10001$ 
-WORD MENRES 
-WORD TS$CODE 
-WORD MENASC 
. WORD -1 
-WORD T$LOLIM 
-WORD TS$HILIM 
10001$: 
ee i$ sRETRY IF ERROR 
MOV MENRES ,RO ;GET THE OPERATOR’'S REPLY 
CMP RO,R1 sCOMPARE TO MAXIMUM ALLOWED 
BLOS 5$ ;BRANCH IF OK 
PRINTF #MENERR sDISPLAY ERROR MESSAGE 
MOV @MENERR, -( SP) 
MOV #1,-C(SP) 
MOV SP ,RO 
TRAP CSPNTF 
ADD #4,SP 
BR i$ ;RETRY 
S$: RTS PC sRETURN TO CALLER 
045 MENERR: .ASCIZ ‘SNSA ##* Menu Selection Too Large +##«' 
045 SELASC: .ASCIZ ‘sNsT’ 
164 MENASC: yi ‘Enter Menu Selection: ‘ 
MENRES: -WORD O 





CZTKHB TK-25 FRT END FUNC 04 
CHKMAN - CHECK MANUAL INTERVENTION LEGALITY 


3613 021406 
3614 021406 
3615 021412 
021412 
3616 021414 
021414 
3617 021416 
021416 
021422 
021426 
021430 
021432 
3618 021436 
3619 021440 


3621 021442 


a 


104450 
103411 


012746 
012746 
010600 
104417 
062706 
000241 
000207 


045 


021442 
000001 


000004 


116 
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-SBTTL CHKMAN - CHECK MANUAL INTERVENTION LEGALITY 


3¢ 


e 
sROUTINE TO TEST FOR MANUAL INTERVENTION LEGALITY. 


i 
; INPUT: 
; 
; NONE . 
Hi 
; OUTPUT: 
3 
3 CARRY 0O MANUAL INTERVENTION NOT ALLOWED 
3 1 MANUAL INTERVENTION IS OK 
: 
sSIDE EFFECTS: 
b 
3 A MESSAGE IS DISPLAYED WARNING THAT TEST IS 
3 NOT EXECUTED IF MANUAL INTERVENTION IS NOT 
: ALLOWED. 
; 
37 
CHKMAN: : 
SAVREG ;SAVE THE REGISTERS 
MANUAL ;SEE IF MANUAL INTERVENTION OK 
TRAP C$MANI 
eae Fie sBRANCH IF ALLOWED 
PRINTF @NOMAN sPRINT THE WARNING MESSAGE 
MOV @NOMAN , -( SP) 
MOV SP ,RO 
TRAP CSPNTF 
ADD 04 ,SP 
CLC sCLEAR CARRY FOR ERROR 
i$: RTS PC sRETURN 


045 NOMAN: .ASCIZ ‘SNSA ##* Manuel Intervention not Allowed - Test Aborted sa’ 


-even 


SEQ 0103 


CoS a a a i re ane a a) 


CZTKHB TK-25 FRT END FUNC 4 


ENVIRN 


— 


3639 021612 
3640 021616 
3641 021622 
3642 


104431 
010037 
062737 
011037 
162737 
013702 
162737 
005302 
001373 
013700 
063700 
162700 
010037 
000207 
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- SETUP FREE DIAGNOSTIC SPACE 


SEQ 0104 


-SBTTL ENVIRN - SETUP FREE DIAGNOSTIC SPACE 
; 
+ SUBROUTINE TO SET-UP VARIOUS ENVIRONMENTAL PARAMETERS. 


y 
ENVIRN: MEMORY RO 
TRAP 


C$MEM 
MOV RO, FREE 
003076 AQO #2 ,FREE 
MOV (RO) ,FRESIZ 
003100 suB #4 ,FRESIZ 


MOV LS$UNIT ,R2 
003100 10%: SUB 4 »FRESIZ 


BNE 10$ 
MOV FREE ,RO 
ADD yy »RO 


#2, 
MOV RO ,FREEHI 
PC 


; GET 1ST FREE ADDRESS... 
3...AND WORD COUNT. 


s GET NUMBER OF UNITS 
s TAKE AWAY 7 WORDS PER UNIT 


s;GET FIRST FREE ADORESS 
sPOINT TO LAST FREE ADDRESS 
sBACKUP 1 WORD 

sSTORE LAST FREE ADDRESS 
sRETURN 
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005037 
005037 
023727 
101444 
013700 
012737 
005737 
000240 
013737 
042737 
010037 


005000 
012701 
012761 
010021 
062700 
020027 
001367 
012741 
000405 


012716 
000002 


010037 


KTINIT 

3644 

3645 

3646 

3647 

3648 

3649 

3650 

3651 021624 

3652 021624 

3653 021630 

3654 021634 

3655 021642 

3656 021644 

3657 021650 

3658 021656 

3659 021662 

3660 021664 
000207 
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- SETUP KT11 MEMORY MANAGEMENT REGISTERS 


001577 


000004 


003104 
003104 


177740 


| ad 


-SOTTL KTINIT 


3 
sROUTINE TO INIT KT-11 


KTINIT: 


18: 


2s: 


6$: 
9s; 


RTS 


KTFLG 
KTENABLE 
etiam 

$ 
QOERRVEC ,RO 
2%, BOERRVEC 
@eSRO 


LSHIME ,KTFLG 
#177 ,KTFLG 
amma 


@KIPARO,R1 


077406, -40(R1) 


RO,CR1)-+ 
#200,RO0 
RO, #2000 


is 
#177600, -(R1) 
93 


6$,(SP) 


RO, BERRVEC 
PC 








- SETUP KT11 MEMORY MANAGEMENT REGISTERS 


INIT >28K MEMORY FLAG 
INIT TEST >28K FLAG 
GOT ENOUGH MEMORY (>28K)? 


NO. 
SAVE OLD ERR VEC PTR. 
SET ERR VEC PTR. 
GOT KT11? 
(TRAP IF NO). 
YES. SET KT FLAG. 


RESTORE OLD ERR VEC PTR. 
RO = AR DATA. 

Ri = KI REGS PTR. 

SET DESCRIPTOR REG. 

SET KIPAR REG. 

BUMP AR DATA BY “4K”. 

AT “I/0"? 


NO. 
YES. SET KTPAR7 FOR I/0. 


SET UP RETURN 
RTI TO NEXT LOCATION 


RESTORE OLD ERR VEC PTR. 





=a} 
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PROTECTION TABLE SEQ 0106 
3696 -SBTTL PROTECTION TABLE 
3697 021756 BGNPROT 
021756 LSPROT:: 
3698 O217S6 ATTT77 «177777)=«177777 -WORD  -1, -1, -1, -1 sNO DEVICE PROTECTION REQUIRED. 
3699 021766 ENDPROT 


3700 





CZTKHB TK-25 FRT END FUNC 04 


INITIALIZE SECTION 


3714 021766 012737 
3715 021774 005037 
3716 022000 005037 
3717 022006 005037 


022062 104432 
022064 000416 


022066 012700 
022072 104447 


022074 103050 


022076 012700 
022102 104447 


022104 103404 


022106 012700 
022112 104447 


022114 103027 


022116 104433 
3739 022120 005037 
3740 022124 005037 
3741 022130 005037 
3742 022134 005037 


a 


005676 002150 


003112 
003106 
002250 


000076 
002152 
003064 
002152 


003134 
040000 


000035 


000040 


000037 
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002012 


003134 


-SBTTL INITIALIZE SECTION 


$e 
sTHE INITIALIZE SECTION CONTAINS THE CODING THAT IS PERFORMED 
sAT THE BEGINNING OF EACH PASS. 


; 
sIF “START” OR “RESTART”, SET QUICK-PASS FLAG AND BUS-INIT. 
sIF “CONTINUE”, NOTHING IS REQUIRED. 


BGNINIT 
LSINIT:: 
40$: 
MOV #EPRT1,EPRTSW ;SET UP PRIMARY MESSAGE FOR REPLACEMENT 
CLR SIFLAG sCLEAR “SOFT INIT” FLAG 
CLR KTENABLE s;CLEAR TEST ABOVE 28K FLAG 
CLR RAMSIZ sCLEAR RAM SIZE FOR RAMERR ROUTINE 
READEF @€F . CONTINUE 
MOV EF . CONTINUE ,RO 


TRAP CSREFG 
os 1$ 


BC 1$ 
CMP UNITN,LSUNIT sUNIT IN RANGE? 
BHIS as ;BR IF NO. 
TST DUFLG sDROPPED UNIT? 
BMI NXTU ;BR IF YES 
MOV UNITN,R1 
ASL Ri 
TST ERTABL(R1) 
BEQ SETU 
BIT #BIT14,ERTABL(R1) ;DROPPED? 
BNE NXTU 
EXIT INIT 300 NOTHING IF “CONTINUE”. 
TRAP CsEXxIT 
-WORD 110030-. 
1$: READEF #€F .NEW 


MOV EF .NEW,RO 
TRAP CSREFG 
BNCOMPLETE NXTU TAKE NEXT UNIT IF NOT NEW PASS. 
BCC NXTU 

READEF EF .START 

MOV EF .START,RO 
TRAP CSREFG 
BCOMPLETE 2$ 

BCS 2s 

READEF EF .RESTART 
MOV EF .RESTART,RO 
TRAP CSREFG 
BNCOMPLETE 31$ 


BCC 31$ 
2$: 31ST PASS, BUS-INIT... 
BRESET BUS RESET. 
TRAP CSRESET 
CLR TSTCNT sNUMBER OF TESTS RUN IN PASS 
CLR FLLTSW sSHOW 1ST PASS ON FAULT LIGHT MESSAGE SW 
CLR FATFLG sRESET FLAG TO ZERO “FATAL ERRORS” 
19$: CLR SKIPT sCLEAR THE SUBTEST “SKIPPER” 






SEQ 0107 










re-- ——————— ee os ee __ _  eee s ——_—_—___—“|) 
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INITIALIZE SECTION 


3743 022140 


3773 022274 


3775 022276 

022276 
3776 022300 
3777 022302 


3779 022302 
022302 
022306 

3780 022310 
022310 

3781 022312 

3782 022316 

3783 022322 

3784 022324 


3786 022330 
3787 022332 
3788 022334 
3789 022340 
3790 022344 
3791 022350 


012737 
005037 


104422 
005237 
023737 
103423 
012737 
000401 


104444 
000240 


023727 
101752 
005737 
001747 


104421 
032700 
001343 


104424 
000741 


013700 
104442 


103342 
005037 
005237 
012001 
010137 


012001 
011002 
010237 
010137 
012721 
010221 


177777 
021536 
021624 
003134 
003334 


002154 
022250 


177777 
002170 


002152 
002152 


177777 


002012 


002170 


000100 


002152 


003064 
002170 


002156 


002162 
002160 
017072 





002154 


002152 


002012 
003064 


000001 


208: 


11$: 
PASRPT: 


10$: 
SETU: 
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MOV #-1,QVP 
JSR PC ,ENVIRN 
JSR PC .KTINIT 
MOV ERTABL ,RO 
CLR CRO)+ 

CMP RO, G@ERTABE 
BLO 30$ 

BR 4s 

CLR ave 

JMP PASRPT 

MOV @-1,UNITN 
CLR DEVCNT 
BREAK 

TRAP C$BRK 

INC UNITN 

CMP UNITN,LSUNIT 
BLO SETU 

MOV @-1,DUFLG 
BR 11$ 

DOCLN 

TRAP CSOCLN 
NOP 

CMP LSUNIT,#1 
BLOS NEWPAS 

TST DEVCNT 

BEQ NEWPAS 
RFLAGS RO 

TRAP C$RFLA 

BIT #ISR,RO 
BNE NEWPAS 
DORPT 

TRAP C$ORPT 

BR NEWPAS 
GPHARD UNITN,RO 
MOV UNITN, RO 
TRAP C$GPHRD 
BNCOMPLETE NXTU 
BCC NXTU 

CLR DUFLG 

INC DEVCNT 

MOV (RO)+,R1 
MOV R1,CSRADDR 
MOV (RO)+,R1 
MOV (RO) ,R2 
MOV R2,IPRI 
MOV R1,IVEC 
MOV #INTR,(R1)+ 
MOV R2,(R1)+ 


s...QUICK VERIFY... 
sSET ENVIRONMENT. 
sINITIALIZE KT MEMORY MANAGEMENT 


sCLEAR THE ERROR TABLE 


sGO REPORT THE STATUS 


sINIT UNIT NUMBER... 
s;CLEAR COUNT OF DEVICES RUNNING 


3...AND SET NEXT UNIT NUMBER. 


sABORT, NO MORE UNITS. 


sHOW MANY UNITS SELECTED? 
BR IF ONLY 1 

sARE ANY STILL RUNNING? 

:BR IF NO 


;SHOULD WE PRINT STATISTICS 
;BR IF NO 


sGET UNIT N P-TABLE POINTER. 


3BR IF UNIT NOT AVAILABLE. 
sCLEAR “DROPPED” FLAG. 


sGET 1ST REGISTER ADDRESS. 
sADDRESS OF REGISTERS OF UNIT UNDER TEST 


sGET VECTOR ADDRESS. 

sGET INTERRUPT PRIORITY 

sSET INTERRUPT PRIORITY. 

sSET INTERRUPT VECTOR POINTER... 


3... VECTOR... 
;...AND PRIORITY. 


SEQ 0108 





CZTKHB TK-25 FRT END FUNC 04 





INITIALIZE SECTION 


3811 
3812 
3813 
3814 
3815 
3816 
3817 
3818 
3819 
3820 
3821 
3822 
3823 
3824 


3825 


3826 
3827 
3828 


022352 
022356 
022360 
022366 
022372 
022400 
022402 
022402 
022404 
022410 
022412 
022412 
022416 
022422 
022426 
022430 
022432 
022436 
022436 
022442 
022446 
022450 
022454 
022460 
022462 
022466 
022474 


022474 
022474 
022500 
022502 
022502 
022502 


022504 


013701 
006301 
052761 
005037 
023727 
101416 


104421 
032700 
001412 


013746 
012746 
012746 
010600 
104417 
062706 


005037 
013701 
010102 
062702 
004737 
103005 
010137 
012737 


012700 
104441 


104411 
045 


002152 
100000 


005236 
002012 


001000 


002152 
022504 
000002 
000006 


003066 
002156 


000000 
017300 


003066 
177777 


000000 


116 





003134 
000001 


003064 


045 PUNIT: 


1ST PASS, CHECK THAT DEVICE ADDRESSES ARE VALID, AND 
“ets THE DISPLAY STATUS IS PROPERLY INITIALIZED. 


10$: 


2s: 


: 
sFINALLY, SET CPU PRIORITY AND WE‘RE DONE. 


S$: 


L10030: 


TST 
BEQ 


SETPRI 


TRAP 


-ASCIZ /sSNSNSA&&&ee% TESTING UNIT SD28A saa00/ 
EVEN 
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ave 
S$ 


UNITN,R1 
Ri 


exTa sERTABLC(R1) ;SAY DEVICE RUNNING 


@PUNIT ,UNITN 
UNITN, -(SP) 
#PUNIT ,-(SP) 
2, -(SP) 
C$PNTF 

#6 ,SP 


NODEV 
—— 


R1,NODEV 
#- 1 . DUFLG 


#PRIOO 


CsiNIT 









SEQ 0109 


s1ST PASS 2? 
sNO, SKIP THE PASS 1 STUFF. . 


sCLEAR ERROR EXTENSION FLAG. 
sARE WE TESTING MULTIPLE UNITS? 
:BR IF NO. 

sYES -- GET OPERATOR FLAGS. 


sSHOULD WE PRINT UNIT #? 
:BR IF NOT. 
sPRINT THE UNIT @ 


sADDRESS OF FIRST REGISTER 
sSTART OF REGISTERS 

sADDRESS OF TSSR REGISTER 
sTEST BOTH CONTROLLER REGISTERS... 
3...AND BR IF ALL OK. 

sFLAG DEVICE AS NON-EXISTENT 
sDROP THIS UNIT. 


sENABLE INTERRUPTS. 





CZTKHB TK-25 FRT END FUNC 04 MACRO YOS.02 Tuesday 25-Jun-85 10:28 Page 81 


ADD AND DROP UNITS SECTIONS SEQ 0110 
sone -SBTTL ADD AND DROP UNITS SECTIONS 
3832 see 
3833 ; THE ADD-UNIT SECTION CONTAINS THE CODING THAT CAUSES A DEVICE 
3834 ; TO BE CA) ADDED TO THE TEST LIST FOR THE FIRST TIME, 
+4 F OR (B) RE-INSERTED IF IT HAD BEEN PREVIOUSLY DROPPED. 
3 -- 

3837 022552 BGNAU 

022552 LSAU:: 
3838 022552 010001 MOV RO,R1 3; GET UNIT TO BE ADDED (RO) 
3839 022554 006301 ASL R1 : MAKE IT A WORD INDEX 
3840 022556 052761 100000 003134 BIS #100000, ERTABL(R1) ; SET THE “ACTIVE” BIT 
3841 022564 042761 040000 003134 BIC #40000,ERTABL(R1) ; CLEAR THE “DROPPED” BIT 
3842 022572 PRINTF #1$,R0 

022572 010046 MOV RO,-CSP) 

022574 012746 022620 MOV #1$,-CSP) 

022600 012746 000002 MOV #2,-(CSP) 

022604 010600 MOV SP,RO - 

022606 104417 TRAP CSPNTF 

022610 062706 000006 ADD #6 ,SP 
3843 022614 EXIT AU ' 

022614 000167 -WORD J$JMP 

022616 000026 -WORD 1L10031-2-. 
3844 022620 045 116 045 1$: -ASCIZ /SNSA UNIT SDA ADDED/ 
3845 EVEN 
3846 
3847 022646 ENDAU ; UNUSED. 

022646 L10031: 

022646 104452 TRAP CS$AU 
3848 pee 
3849 ; THE DROP-UNIT SECTION CONTAINS THE CODING THAT CAUSES A DEVICE 
44 : TO BE REMOVED FROM THE TEST LIST. 

1 F 

3852 ; SUPVSR DOES THE “DROPPING”. THIS IS JUST TO TELL THE MAN. 
3853 ; “DROPPED” UNITS ARE RE-SELECTED ON OPERATOR “STA” OR “ADD” 
3854 ; COMMAND, OTHERWISE REMAIN INACTIVE. THE “DISPLAY” COMMAND 
3855 ; WILL PRINT ALL DROPPED UNITS, AND THE P-TABLES OF THOSE 
3856 ; WHICH ARE STILL ACTIVE. 
4 ; UPON ENTRY, RO CONTAINS THE UNIT TO BE DROPPED. 
3859 022650 BGNDU 

022650 L$DU:: 
3860 022650 012737 177777 003064 MOV #-1,DUFLG 
3861 022656 010001 MOV RO,R1 
3862 022660 006301 ASL R1 
3863 022662 052761 140000 003134 BIS #140000, ERTABL(R1) ; SAY DROPPED 
3864 022670 000240 000240 000240 240,240,240 s 222227722? 
3865 022676 PRINTF #1$,RO0 

022676 010046 MOV RO,-(SP) 

022700 012746 022724 MOV #1$,-CSP) 

022704 012746 000002 MOV #2,-(SP) 

022710 010600 MOV SP ,RO 

022712 104417 RAP CS$PNTF 

022714 062706 900006 ; ADD #6 ,SP 
3866 022720 EXIT DU 

022720 000167 . WORD J$ JMP 

022722 000030 -WORD L10032-2-. 
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ADD AND DROP UNITS SECTIONS SEQ 0111 
3867 022724 045 116 045 18: -ASCIZ /SNSA UNIT SDSA DROPPED/ 
3868 -EVEN 
3869 022754 ENDDU 
022754 L10032: 
022754 104453 TRAP C$0uU 
3870 ite 
3871 ; AUTO-DROP CODE SECTION. 
3872 pe 
3873 022756 BGNAUTO 
022756 L$AUTO:: 
3874 022756 012703 000550 MOV #360. ,R3 sENOUGH TIME FOR 2400’ REEL TO REWIND 
3875 022762 004737 017124 10$: JSR PC ,WAITF sWAIT FOR SSR TO SET 
3876 022766 103420 BCS 20$ sLEAVE WHEN SSR IS SET 
3877 022770 DELAY 250. sWAIT FOR .25 SECONDS 
022770 012727 000372 MOV #250. ,CPC)+ 
022774 000000 -WORD 0 
022776 013727 002116 MOV LS$DLY,(PC)+ 
023002 000000 -WORD O 
023004 005367 177772 DEC -6(PC) 
023010 001375 BNE --4 
023012 005367 177756 DEC -22(PC) 
023016 001367 BNE .-20 
3878 023020 005303 DEC R3 sBUMP COUNTER DOWN 
3879 023022 001357 BNE 10$ sKEEP GOING 
3880 023024 004737 020156 JSR PC ,CKDROP sTRY AND DROP UNIT 
3881 023030 20$: 
3882 023030 ENDAUTO ; UNUSED. 
023030 L10033: 
023030 104461 TRAP C$AUTO 


ae 
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3919 
3920 
3921 
3922 


023172 


005737 
100407 


013705 
012765 
004737 


104412 


012746 
012746 
010600 
104416 
062706 
010246 
010346 
010446 
012704 
005003 
011402 
001467 
100066 
032702 
001015 
042702 


010346 
012746 


003064 


002156 
000000 
017124 


023322 
000001 


000004 


003134 


040000 
170000 


023357 
000903 


000010 
160000 


023427 





MACRO YOS.02 Tuesday 25-Jun-85 10:28 Page 82 
CLEAN-UP AND REPORT CODING SECTIONS 


000000 


SEQ 0112 
-SBTTL CLEAN-UP AND REPORT CODING SECTIONS 


soe 
; THE CLEANUP CODING SECTION CONTAINS THE CODING THAT IS 
; EXECUTED AT THE END OF EACH PASS (OR SUB-PASS). 

; USE TO RETURN DEVICE UNDER TEST TO A NEUTRAL STATE. 
572 


BGNCLN 
L$CLEAN: : 
TST DUFLG ;"DROPPED” FLAG IS SET ON... 
BMI 1s ;...AND GROSS CONTROLLER FAULT... 
;...DON’'T TRY TO XCT CLEANUP CODE. 
MOV CSRADOR,RS ; ADDRESS OF TSV REGISTERS ON UNIBUS 


MOV #0, TSSRCRS) 300 SOFT INIT 
JSR PC ,WAITF 


TRAP C$CLEAN 


++ 
; THE REPORT CODING SECTION CONTAINS THE 
; “PRINTS” CALLS THAT GENERATE STATISTICAL REPORTS. 


g°-=2 
BGNRPT 


L$RPT:: 
PRINTS #DEVSUM 
MOV #DEVSUM, -( SP) 
MOV #1,-CSP) 
MOV SP ,RO 
TRAP C$PNTS 
ADD #4 ,SP 
MOV R2,-C(SP) 
MOV R3,-CSP) 
MOV R4,-(SP) 
MOV #ERTABL,R4 ; GET START OF ERROR TABLE. 
CLR R3 ; CLEAR UNIT NUMBER 
1$: MOV (R4),R2 ; GET ERROR TABLE ENTRY € TEST IT. 
BEQ 4$ ; ZERO IF UNIT NOT RUN 
BPL 4$ 
BIT #BIT14,R2 ; WAS UNIT DROPPED? 
BNE 2s ; BR IF YES 
BIC #*C7777,R2 ; GET ERROR COUNT FIELD 
PRINTS #DEVONL,R3,R2 ; PRINT 
MOV R2,-CSP) 
MOV R3,-CSP) 
MOV #DEVONL , -C SP) 
MOV #3,-CSP) 
MOV SP ,RO 
TRAP CS$PNTS 
ADD #10, SP 
BR 4$ 
2s: CMP R2,#160000 ; WAS UNIT NON-EXISTENT? 
BNE 3$ ; BR IF NO 


PRINTS #DEVNXR,R3 
MOV R3,-CSP) 
MOV #DEVNXR, -( SP) 


fe ee eee ne rg ae 


i i rn wn ee ee ee 
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CLEAN-UP AND REPORT CODING SECTIONS SEQ 0113 
023176 012746 000002 MOV #2,-(SP) 
023202 010600 MOV SP ,RO 
023204 104416 TRAP CSPNTS 
023206 062706 000006 ADD #6 ,SP 
3923 023212 000431 BR 4$ 
3924 023214 020227 160001 3$: CMP R2,#160001 s WAS UNIT NOT READY AT STARTUP? 
3925 023220 001012 BNE 30$ ; BR IF NO. 
3926 023222 PRINTS #DEVNRD,R3 
023222 010346 MOV R3,-CSP) 
023224 012746 023511 MOV #DEVNRD, -( SP) 
023230 012746 000002 MOV #2,-(SP) 
023234 010600 MOV SP ,RO 
023236 104416 TRAP CSPNTS 
023240 062706 000006 ADD #6 ,SP 
3927 023244 000414 BR 43 
3928 023246 042702 170000 30$: BIC #*C7777,R2 
3929 023252 PRINTS #DEVDRO,R3,R2 
023252 010246 MOV R2,-CSP) 
023254 010346 MOV R3,-(SP) 
023256 012746 023572 MOV #DEVORO, -( SP) 
023262 012746 000003 MOV #3 ,-(SP) 
023266 010600 MOV SP ,RO 
023270 104416 TRAP CSPNTS 
023272 062706 000010 ADD #10,SP 
3930 023276 062704 000002 4$: AND #2 ,.R4 
3931 023302 005203 INC R3 
3932 023304 020427 003334 CMP R4, @ERTABE 
3933 023310 103701 BLO 1$ 
3934 023312 012604 MOV C(SP)+,R4 
3935 023314 012603 MOV (SP)+,R3 
3936 023316 012602 MOV (SP)+,R2 
3937 023320 ENDRPT ; UNUSED. 
023320 L10035: 
023320 104425 TRAP C$RPT 
3938 
3939 


3940 023322 045 116 045 DEVSUM: .ASCIZ /sSNSADEVICE STATUS SUMMARY: sN/ 

3941 023357 045 101 040 DEVONL: .ASCIZ /#A UNIT SD3%A ONLINE, ERRORS = SDsN/ 
3942 023427 045 101 040 DEVNXR: .ASCIZ /#A UNIT SD38A DROPPED, NON-EXISTENT REGISTERSN/ 
3943 023511 045 101 040 DEVNRD: .ASCIZ /#A UNIT SD3%A DROPPED, NOT READY AT STARTUPSN/ 
ten 023572 045 101 040 DEVDRO: a /%A UNIT 8D3%A DROPPED, ERRORS = #DsN/ 


CZTKHB TK-25 FRT END FUNC 04 
TEST 1: WRITE TAPE MARK RETRY 


3971 
3972 
3973 
3974 
3975 
3976 
3977 


023642 


023676 
023702 





005037 
005037 
012737 
012700 
004737 
012737 
005037 





002172 
003104 
005676 
032111 
017412 
000001 
026544 


002150 


002166 
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SEQ 0114 
-SBTTL TEST 1: WRITE TAPE MARK RETRY 


3? 


: 

sTHIS TEST VERIFIES PROPER OPERATION OF THE WRITE TAPE MARK RETRY COMMAND (SPACE 
sREVERSE, ERASE, WRITE TAPE MARK). SUBTESTS ARE AS FOLLOWS: 

; 


: 
sTHE TEST CONSISTS OF THE FOLLOWING 4 SUBTESTS 
; 


BGNTST ' 
1:: 
CLR FATFLG ;CLEAR FATAL ERROR FLAG 
CLR KTFLG sHOLD OFF KT11 
MOV #EPRT1,EPRTSW sPRIMARY ERROR MESSAGE 
MOV #TST29ID,RO sASCII MESSAGE TO IDENTIFY TEST 
JSR PC, TSTSETUP ;D0 INITIAL TEST SETUP 
MOV #1,LO0PCNT sPERFORM 1 ITERATIONS 
meee CLR T29CNT ;CLEAR TAPE RECORD COUNTER 





CZTKHB TK-25 FRT END FUNC 04 
TEST 1: WRITE TAPE MARK RETRY 


4007 


4009 023704 
4010 023710 
4011 023714 
4012 023720 
4013 023726 
4014 023732 
4015 023734 


032140 
032232 
032274 
023420 
016650 
000250 
002116 
177772 
177756 
026550 


020104 


012727 
000000 
013727 
000000 
005367 
001375 
005367 
001367 
005337 
001356 
004737 
010001 


104455 


4016 023764 
4017 023770 
4018 023772 
4022 023776 
4023 024000 


4024 024010 
4025 
4026 024010 
4027 024014 
4028 024020 
4029 024022 
4033 024026 
4034 024030 
024030 
024032 
024034 
024036 
4035 024040 
024040 
4036 024042 
4037 024046 
4038 024050 
4039 024054 
4040 024056 


026360 
010332 


020104 


000000 
000100 





026550 


3* 
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3 

sTEST 1, SUBTEST 1 
; 

sVERIFIES THAT A WRITE TAPE MARK RETRY COMMAND ISSUED WHILE THE 


sTAPE IS POSITIONED AT BOT CAUSES FUNCTION 


sNON-EXECUTABLE FUNCTION (NEF) ERROR BIT SET. 
; 


10$: 


208: 


25%: 


BGNSUB 


PC, 129REST 

PC, T29RT2 

PC ,T29RTS 
#10000. , T29DLY 
PC ,SOF INIT 

20$ 

250 


T290LY 
10$ 

PC .FATCHK 
RO,.R 


0,R1 
ERRNO, SFIERR, SFIMSG 


@T29PACKET ,R4 
+ Teas 


25$ 

PC ,FATCHK 

RO,R1 

ERRNO, WRTMSG , SFIMSG 


TSSRCRS),R1 
R1,R2 


#OFL ,R2 
R1,R2 
263 


REJECT TERMINATION, WITH THE 


3>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>> >>> 
T1.1: 


TRAP 
sSET COMMAND PACKET 
sSET UP OTHER COMMAND PACKET 
sSET UP OTHER COMMAND PACKET 
sSET UP DELAY ROUTINE 
sD0 INITIALIZE ON CONTROLLER 
sBR IF INIT WAS OK 
sDELAY ABOUT .25 SECONDS 


BNE 
sBUMP DELAY ROUTINE DOWN 
sBR, IF MURE DELAY TIME LEFT 


sINC AND CHECK FOR MORE THAN 25 


sCONTENTS OF TSSR REGISTER 
sFATAL ERROR TSSR WAS — 


sSUBROUTINE NEEDS PACKET ADDRESS 


sISSUE WRITE CHARACTERISTICS 
sBR, IF COMMAND ISSUED OK 


C$BSUB 


#250, (PC)» 
LSDLY,(PC)s 
-6(PC) 

4 

-22(PC) 
.-20 
ERRORS 


CSEROF 


sINC AND CHECK FOR MORE THAN 25 ERRORS 


sSAVE CONTENTS OF TSSR 
sWRITE CHARACTERISTISC — 


;LOOP IF SELECTED 


sGET THE TSSR 

sSET UP EXPECTED 
;OFF LINE SHOULD NOT BE SET 
sTHEY SHOULD BE EQUAL 
sBR, IF OFL IS NOT SET 


TRAP 


CsCLP1 





SEQ 0115 








CZTKHB TK-25 FRT END FUNC 04 
TEST 1: WRITE TAPE MARK RETRY 


— 


026406 
000002 


020104 


003076 


026406 
002000 


020104 
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ERROF 


40$: CKLOOP 


026512 MOV 
026510 MOV 


75$: CKLOOP 


ERRHRO 


ERRNO, T290FL ,EXPREC 


PC ,CKDROP 

PC ,REWIND 
TSSRC(RS).R1 

@SSR ,R2 

30$ 

RO,R4 

PC ,FATCHK 

ERRNO, T29RWN,PKTSSR 


T29BFR+6,R1 
R1,R2 
#B1IT1,R2 
R1,R2 

40$ 


PC ,FATCHK 
ERRNO, T29B0T ,EXPREC 


FREE , T29RB 

#141011, T29PK3 
@T29PK3,R4 

R4, TSDBCRS) 

PC ,WAITF 
TSSRCRS),R1 
@SSR!SC!BIT1!BIT2,R2 
R1,R2 

75$ 

PC ,FATCHK 

ERRNO, T29WDE ,PKTSSR 


T29BFR+6,R1 
R1,R2 
#BIT10,.f2 
R1,R2 

170$ 


PC .FATCHK 
ERRNO, T29NEF ,EXPREC 


sDRIVE IS OFF LINE 


sTRY AND DROP DRIVE 

sCALL TAPE REWIND COMMAND 

:GET TSSR 

sSET UP EXPECTED TSSR 

sBR, IF NO PROBLEM 

sPACKET ADDRESS SET UP 

sINC AND CHECK FOR MORE THAN 25 
sREWIND NOT ACCEPTED = 


. WORD 
- WORD 
«WORD 


TRAP 


sLOOP IF SELECTED 


sPICK UP XSTO 

sSET UP EXPECTED 

sSET BOT BIT IN EXPECTED 

sDOES EXP = REC'D 

sBR, IF EQUAL (OK) 

sINC AND CHECK FOR MORE THAN 25 
;TAPE NOT AT BOT AFTER —— 


sLOOP IF SELECTED 
sADDRESS OF READ BUFFER 


sWRITE TAPE MARK RETRY,CVC=1,ACK COMMAND 


sSET UP R4 WITH PACKET ADDRESS 
sISSUE COMMAND 

sWAIT FOR SSR TO SET 

sGET TSSR CONTENTS 

sSET UP EXPECTED 

sARE THEY EQUAL 

sBR, IF OK 

sINC AND CHECK FOR MORE THAN 25 
sTSSR INCORRECT AFTER — DATA 


sGET XSTO STATUS WORD 

sSET UP EXPECTED 

sSET THE NEF BIT 

sARE THEY EQUAL 

sBR, IF EQUAL (GOOD) 

sINC AND CHECK FOR MORE THAN 25 
sNEF SHOULD BE SET ooen 


ERRORS 
CSERHRD 


CsCLPi 


T29B80T 
EXPREC 


CsCLP1 


ERRORS 
CSERHRD 
106 
T29WDE 
PKTSSR 


CsCLP1 


ERRORS 
CSERHRD 


SEQ 0116 








Se ee 


CZTKHB TK-25 FRT END FUNC 04 
TEST 1: WRITE 


— 


024274 
024276 
024300 
4093 024302 
4094 024302 
4095 024304 
4096 024306 
024306 
024306 


TAPE MARK RETRY 
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1708: 


COM R3 
BNE 26% 
ENDSUB 


SEQ 0117 


107 
T29NEF 
EXPREC 





sRESET THE SWITCH 
sBR, IF FIRST TIME THROUGH HERE 


L10037: 


TRAP CSESUB 


CZTKMB TK-25 FRT END FUNC 





TEST 1: WRITE TAPE MARK RETR 


024310 104402 
4111 024312 004737 
4112 024316 004737 
4113 024322 004737 
4114 024326 004737 
4115 024332 103407 
4116 024334 004737 
4120 024340 010001 


024342 104455 
024344 000154 
024346 003554 
024350 011666 


4124 024352 012704 
4125 024356 004737 
4126 024362 103407 
4127 024364 004737 
4131 024370 010001 


024372 104456 
024374 000155 
024376 004760 
024400 011666 


024402 104406 
4134 024404 004737 
4135 024410 016501 
4136 024414 012702 
4137 024420 103407 
4138 024422 010004 
4139 024424 004737 


024430 104456 
024432 000156 
024434 030270 
024436 011700 


024440 104406 
4145 024442 013701 
4146 024446 010102 
4147 024450 052702 


032140 
032232 
032274 
016650 


020104 


026360 
010332 


020104 


010434 
000000 
000200 


020104 


026406 
000002 


3¢ 
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: 
sTEST 1, SUBTEST 2 


3 

sVERIFIES THAT A WRITE TAPE MARK RETRY COMMAND ISSUED WHILE THE TAPE 

sIS POSITIONED BEFORE THE FIRST RECORD ON TAPE (BUT NOT AT BOT) RESULTS IN 
sTAPE STATUS ALERT TERMINATION, WITH THE REVERSE INTO BOT (RIB) STATUS BIT 


sSET. 
3 


208: 


258: 
26%: 


30$: 


PC ,T29REST 
PC .T29RT2 
PC, T29RTS 
—_— 


20 

PC .FATCHK 

RO,R1 

ERRNO, SFIERR ,SFIMSG 


@T29PACKET ,R4 
PC ,WRTCHR 


25% 

PC .FATCHK 

RO,R1 

ERRNO, WRTMSG , SFIMSG 


PC ,REWIND 
TSSRCRS),R1 
@SSR,R2 

308 

RO,R4 


PC .FATCHK 
ERRNO, T29RWN,PKTSSR 


T29BFR+6,R1 
R1,R2 
*BIT1,R2 


$>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>> >> >> 
T1.2: 


TRAP CsBSUB 
sSET COMMAND PACKET 
sSET UP OTHER COMMAND PACKET 
sSET UP OTHER COMMAND PACKET 
300 INITIALIZE ON CONTROLLER 
sBR IF INIT WAS OK 
sINC AND CHECK FOR MORE THAN 25 ERRORS 
sCONTENTS OF TSSR REGISTER 
sFATAL ERROR TSSR WAS NOT OK 
TRAP CSERDF 


-WORD 106 
-WORD SFIERR 
-WORD SFIMSG 


sSUBROUTINE NEEDS PACKET ADDRESS 
sISSUE WRITE CHARACTERISTICS 
s8R, IF COMMAND ISSUED OK 
sINC AND CHECK FOR MORE THAN 25 ERRORS 
sSAVE CONTENTS OF TSSR 
sWRITE CHARACTERISTISC FAILED 
TRAP CSERHRD 


-WORD 109 
-WORD WRTMSG 
-WORD SFIMSG 


sLOOP IF SELECTED 
TRAP CsCLP1 


sCALL TAPE REWIND COMMAND 
GET TSSR 
s;SET UP EXPECTED TSSR 
;BR, IF NO PROBLEM 
sPACKET ADDRESS SET UP 
sINC AND CHECK FOR MORE THAN 25 ERRORS 
sREWIND NOT ACCEPTED 
TRAP CSERHRD 


-WORD 110 
-WORD T29RWN 
-WORD PKTSSR 


;LOOP IF SELECTED 


sPICK UP XSTO 
sSET UP EXPECTED 
;SET BOT BIT IN EXPECTED 


TRAP CsCLPi 






SEQ 0118 





























~- 
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4148 024454 


020102 
001406 
004737 


104456 
000157 
027761 
016350 
012737 
012737 
012737 
012704 
010465 
004737 
016501 
012702 
020102 
001406 
004737 


020104 


000001 
140410 
026510 
177776 
017124 
000000 
000200 


020104 


003076 
141911 
026510 
177776 
017124 
000000 
100204 


020104 
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CMP R1,R2 
BEQ 403 
JSR PC ,FATCHK 
ERRHRD ERRNO, T29B0T ,EXPREC 
026512 403: MOV #1,T29RB 
026516 MOV #256. , T29SZ 
026510 MOV #140005, T29PK3 
MOV @T29PK3,R4 
MOV R4,TSOBCRS) 
JSR PC ,WAITF 
MOV TSSRCRS),R1 
MOV @SSR ,R2 
CMP R1,R2 
BEQ 75$ 
JSR PC .FATCHK 
ERRSOFT ERRNO, T29WRT ,PKTSSR 
75$: CKLOOP 
026512 MOV #1, T29RB 
026510 MOV #140410, T29PK3 
MOV @T29PK3,R4 
MOV R4,TSDBCRS) 
JSR PC ,WAITF 
MOV TSSRCRS).R1 
MOV @SSR ,R2 
cmp R1,R2 
BEQ 1753 
JSR PC .FATCHK 
ERRHRD ERRNO, T29WDE ,PKTSSR 
175$: CKLOOP 
026512 MOV FREE , T29RB 
026510 MOV #141011, T29PK3 
MOV @T29PK3,R4 
MOV R4, TSDBCRS) 
JSR PC ,WAITF 
MOV TSSRCRS),R1 
MOV @SSR!SC!BIT2,R2 
CMP R1,R2 
BEQ 180$ 
JSR PC ,FATCHK 
ERRHRD ERRNO, T29WDE ,PKTSSR 


SEQ 0119 
sDOES EXP = REC'D 
sBR, IF EQUAL (OK) 
sINC AND CHECK FOR MORE THAN 25 ERRORS 
sTAPE NOT AT BOT AFTER REWIND 
TRAP CSERHRD 
-WORD i11 
-WORD T29B0T 
-WORD EXPREC 
sNUMBER OF RECORDS TO SPACE OVER 
sSET UP RECORD SIZE 
sWRITE FORWARD ,CVC*1,ACK COMMAND 
sSET UP R4 WITH PACKET ADDRESS 
sISSUE COMMAND 
sWAIT FOR SSR TO SET 
sGET TSSR CONTENTS 
sSET UP EXPECTED 
sARE THEY EQUAL 
sBR, IF OK 
sINC AND CHECK FOR MORE THAN 25 ERRORS 
sSOFT ERROR, DON’T CARE ABOUT WRITE 
sCOMMAND’S RESULTS - CHECKING WRITE 
sTAPE MARK COMMAND 
sTSSR INCORRECT AFTER WRITE DATA 
TRAP CSERSOFT 
-WORD 112 
-WORD  T29WRT 
-WORD PKTSSR 
sLOOP IF SELECTED 
TRAP CSCLP1 
sNUMBER OF RECORDS TO SPACE OVER 
sSET UP COMMAND IN APCKET sSET 


sSET UP R4 WITH PACKET ADDRESS 

sISSUE COMMAND 

sWAIT FOR SSR TO SET 

sGET TSSR CONTENTS 

sSET UP EXPECTED 

sARE THEY EQUAL 

sBR, IF OK 

sINC AND CHECK FOR MORE THAN 25 ERRORS 
sTSSR INCORRECT AFTER READ DATA 


TRAP CSERHRD 

-WORD 113 

-WORD T29WDE 

-WORD PKTSSR 
;sLOOP IF SELECTED 

TRAP CsCLP1 


sADDRESS OF BUFFER 

sWRITE TAPE MARK RETRY,ACK,CVC=1 COMD. 
sSET UP R4 WITH PACKET ADDRESS 

sISSUE COMMAND 

sWAIT FOR SSR TO SET 

sGET TSSR CONTENTS 

sSET UP EXPECTED 

sARE THEY EQUAL 

3BR, IF OK 

sINC AND CHECK FOR MORE THAN 25 ERRORS 
sTSSR INCORRECT AFTER READ DATA 








CZTKHB TK-25 FRT END FUNC 04 
TAPE MARK RETRY 


TEST 1: 


420% 


4204 
4205 
4206 
4207 
4208 
4209 
4213 


4214 
4215 


WRITE 


024716 
024720 
024722 
024724 
024726 
024726 
024730 
024734 
024736 
024742 
024744 
024746 
024752 
024752 
024754 
024756 
024760 
024762 
024762 
024762 
024762 


104456 
000162 
027632 
011700 


104406 
013701 
010102 
052702 
020102 
001406 
004737 


104456 
000163 
031716 
016350 


104403 


026414 
000001 


020104 
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1808: 


190$: 


CKLOOP 


ERRHRD 


ENDSUB 





T29BFR+14,R1 


PC ,.FATCHK 
ERRNO, T29RIB ,EXPREC 


sLOOP IF SELECTED 


sGET XST3 STATUS WORD 
sSET UP EXPECTED 
sSET THE RIB BIT 
sARE THEY EQUAL 
sBR, IF EQUAL (GOOD) 
sINC AND CHECK FOR MORE THAN 25 
sNEF SHOULD BE SET 
TRAP 


- WORD 
- WORD 
- WORD 


CSERHRD 
114 


ERRORS 
CSERHRD 


3>>>>>>>>>>>> END SUBTEST >>>>>>>> >> >> 
L10040: 


TRAP 


CSESUB 











SEQ 0120 








CZTKHB TK-25 FRT END FUNC 04 
TEST 1: WRITE TAPE MARK RETRY 


4217 
4218 
4219 
4220 
4221 
4222 
4223 
4224 
4225 
4226 024764 


104402 
004737 
004737 
004737 
012737 
004737 
103426 


012727 
000000 
013727 


000000 
005367 


4227 024766 
4228 024772 
4229 024776 
4230 025002 
4231 025010 
4232 025014 
4233 025016 


032140 
032232 
032274 
023420 
016650 
000250 
002116 
177772 
177756 
026550 


020104 


4234 025046 
4235 025052 
4236 025054 
4240 025060 
4241 025062 


4242 025072 
4243 025072 
4244 025076 
4245 025102 
4246 025104 
4250 025110 
4251 025112 


026360 
010332 


020104 


4252 025122 


4253 025124 
4254 025130 
4255 025132 
4256 025136 
4257 025140 
4261 025144 


010434 
000000 
020104 
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026550 


%¢ 


; 
sTEST 1, SUBTEST 3 


; 

sVERIFIES THAT A WRITE TAPE MARK RETRY COMMAND TERMINATES 

sPROPERLY AND WRITES THE TAPE MARK ONTO TAPE (BY ISSUING A READ REVERSE 
sCOMMAND AND CHECKING FOR TAPE STATUS ALERT TERMINATION AND TMK=1). 


10$: 


20$: 


23%: 


BGNSUB 


MOV 
JSR 
BCS 
JSR 


MOV 
ERRHRD 


ERRHRD 


PC. T29REST 

PC, T29RT2 

PC, T29RT3 
#10000. , T29DLY 
PC SOF INIT 

20$ 


250 


T290LY 

10$ 

PC ,FATCHK 

RO,R1 

ERRNO, SFIERR ,SFIMSG 


@T29PACKET ,R4 
PC,WRTCHR 


23% 

PC ,FATCHK 

RO,R1 

ERRNO, WRTMSG , SFIMSG 


PC ,REWIND 
30$ 


TSSRCRS),R1 

RO,R4 

PC ,FATCHK 

ERRNO, T29RWN,PKTSSR 


3>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
T1.3: 
TRAP C$BSUB 
sSET COMMAND PACKET 
;SET UP OTHER COMMAND PACKET 
3SET UP OTHER COMMAND PACKET 
:SET UP DELAY ROUTINE 
:D0 INITIALIZE ON CONTROLLER 
;BR IF INIT WAS OK 
s;DELAY ABOUT .25 SECONDS 
-WORD 0 
MOV LS$DLY,(PC)+ 
-WORD 0 
DEC -6(PC) 
BNE .-4 
DEC -22(¢PC) 
BNE --20 


sBUMP DELAY ROUTINE DOWN 
:BR, IF MORE DELAY TIME LEFT 
sINC AND CHECK FOR MORE THAN 25 ERRORS 
sCONTENTS OF TSSR REGISTER 
sFATAL ERROR TSSR WAS NOT OK 
TRAP CSERDF 


-WORD 116 
-WORD SFIERR 
- WORD 


SFIMSG 


sSUBROUTINE NEEDS PACKET ADDRESS 
sISSUE WRITE CHARACTERISTICS 
sBR, IF COMMAND ISSUED OK 
sINC AND CHECK FOR MORE THAN 25 ERRORS 
sSAVE CONTENTS OF TSSR 
sWRITE CHARACTERISTISC FAILED 
TRAP CSERHRD 


-WORD 117 

-WORD WRTMSG 

-WORD  SFIMSG 
sLOOP IF SELECTED 

TRAP CSCLP1 


sCALL TAPE REWIND COMMAND 
;BR, IF NO PROBLEM 
sGET TSSR 
sSAVE PACKET ADDRESS 
sINC AND CHECK FOR MORE THAN 25 ERRORS 
sREWIND NOT ACCEPTED 
TRAP CSERHRD 


-WORD 118 


SEQ 0121 





CZTKHB TK-25 FRT END FUNC 04 
TEST 1: WRITE TAPE MARK RETRY 


030270 
011700 


104406 
013701 
010102 
052702 
020102 
001406 
004737 


104456 
000167 
027761 
016350 


104406 
012737 
012704 
010465 
004737 
016501 
012702 
020102 
001406 
004737 


104456 
000170 
030607 
011700 


104406 
012703 
012737 
012704 
010465 
004737 
016501 
012702 
020102 
001406 
004737 


104456 
000171 
030607 
011700 


104406 
012737 
013737 
012704 
419465 
004737 
016501 
012702 





026406 
000002 


020104 


140011 


000001 
141011 
026510 
177776 
017124 
000000 
000200 


020104 


140401 





026510 


026510 


026510 
026512 


40$: 


70$: 
150$: 


155$: 


165$: 


JSR 


JSR 


ERRHRD 


CKLOOP 
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T29BFR+6,R1 
R1,R2 
#B1T1,R2 
40$ 


PC ,FATCHK 
ERRNO, T29B0T ,EXPREC 


#140011, T29PK3 
#T29PK3,R4 
R4,TSDBCRS) 

PC ,WAITF 
TSSRCRS),R1 


PC ,FATCHK 
ERRNO, T29WDC ,PKTSSR 


#1.,R3 
#141011, T29PK3 
#T29PK3,R4 

R4, TSDBCRS) 

PC ,WAILTF 
TSSRCRS),R1 
#SSR ,R2 

R1,R2 

165$ 

PC ,FATCHK 
ERRNO, T29WDC ,PKTSSR 


#140401, T29PK3 
FREE , T29RB 
#T29PK3,R4 

R4, TSDBCRS) 

PC ,WAITF. 
TSSR(RS),R1 
#SSR!ISC!BIT2,R2 





-WORD T29RWN 

-WORD PKTSSR 
sLOOP IF SELECTED 

TRAP CSCLP1 


sPICK UP XSTO 
sSET UP EXPECTED 
sSET BOT BIT IN EXPECTED 
sDOES EXP = REC'D 
sBR, IF EQUAL (OK) 
sINC AND CHECK FOR MORE THAN 25 ERRORS 
sTAPE NOT AT BOT AFTER REWIND 
TRAP CSERHRD 


-WORD 119 
-WORD T29B80T 
-WORD EXPREC 


sLOOP IF SELECTED 
CSCLP1 


TRAP 
s;WRITE TAPE MARK,ACK,CVC=1 COMMAND 
;SET UP R4&4 WITH PACKET ADDRESS 
sISSUE COMMAND . 

;WAIT FOR SSR TO SET 

;GET TSSR CONTENTS 

;SET UP EXPECTED 

sARE THEY EQUAL 

3BR, IF OK 

sINC AND CHECK FOR MORE THAN 25 ERRORS 
;TSSR INCORRECT AFTER —* TAPE MARK 


RAP CSERHRD 
-WORD 120 
-WORD T29WDC 
-WORD PKTSSR 
sLOOP IF SELECTED 
CsCLP1 


TRAP 
sNUMBER OF RECORDS TO WRITE TM 
sWRITE TAPE MARK RETRY,ACK,CVC=1 COMMAND 
sSET UP R4 WITH PACKET ADDRESS 
sISSUE COMMAND 
sWAIT FOR SSR TO SET 
sPICK UP TSSR 
sSET UP EXPECTED (SSR ONLY) 
sWAS STATUS GOOD 
;BR, IF TERMINATION WAS GOOD 
sINC AND CHECK FOR MORE THAN 25 ERRORS 
s;TSSR NOT CORRECT AFTER _ M. 


CSERHRD 
-WORD 121 
-WORD T29WDC 
-WORD PKTSSR 


;LOOP IF SELECTED 
TRAP CSCLP1 


sREAD REVERSE,ACK, COMMAND 
sNUMBER OF RECORDS TO SPACE BACK 
SET UP R4& WITH PACKET ADDRESS 
sISSUE COMMAND 

sWAIT FOR SSR TO SET 
sGET TSSR CONTENTS 
sSET UP EXPECTED 
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TEST 1: WRITE TAPE MARK RETRY SEQ 0123 
4310 025406 020102 CMP R1,R2 sARE THEY EQUAL 
4311 025410 001406 BEQ 2223 ;BR, IF OK 
4312 025412 004737 020104 JSR PC ,FATCHK sINC AND CHECK FOR MORE THAN 25 ERRORS 
4316 025416 ERRHRD ERRNO, T29RDG,PKTSSR sTSSR INCORRECT AFTER SPACE CMD. 
025416 104456 TRAP CSERHRD 
025420 000172 «WORD 122 
025422 031553 «WORD T29RDG 
025424 011700 -WORD PKTSSR 
4317 025426 2223: CKLOOP ;LOOP IF SELECTED 
025426 104406 TRAP CSCLP1 
4318 025430 013701 026406 MOV T29BFR+6,R1 sPICK UP XSTO 
4319 025434 010102 MOV R1,R2 ;SET UP EXPECTED 
4320 025436 052702 100000 BIS #B1IT15,R2 ;TMK SHOULD BE SET 
4321 025442 020102 CMP R1i,R2 :IS TMK SET 
4322 025444 001406 BEQ 226$ ;BR, IF TMK WAS SET (GOOD) 
4323 025446 004737 020104 JSR PC ,FATCHK ;INC AND CHECK FOR MORE THAN 25 ERRORS 
4327 025452 ERRHRD ERRNO, T29RRN,EXPREC ;TMK NOT SET AFTER READ REV 
025452 104456 TRAP CSERHRD 
025454 000173 «WORD 123 
025456 032016 - WORD T29RRN 
025460 016350 -WORD EXPREC 
4328 025462 226$: CKLOOP ;LOOP IF SELECTED 
025462 104406 TRAP CS$CLP1 
4329 025464 ENDSUB 3<<<<<¢¢¢¢¢¢¢ END SUBTEST >>>>>>>>> >> 
025464 = L10041: 
025464 104403 TRAP CSESUB 








a eee eee eee 
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TEST 1: WRITE TAPE MARK RETRY SEQ 0124 

4331 3¢ 

4332 F 

pean sTEST 1, SUBTEST 4 

4 ; 

4335 sVERIFIES THAT THE SPACE-REVERSE PORTION OF THE WRITE TAPE MARK 

4336 sRETRY OPERATION IS PERFORMED BY REWINDING THE TAPE, ISSUING SEVERAL 

4337 sWRITE TAPE MARK RETRY COMMANDS IN SUCCESSION, THEN ISSUING TWO SPACE 

4338 sRECORDS REVERSE COMMANDS IN SUCCESSION. THE SECOND SPACE RECORDS REVERSE 

sane sCOMMAND SHOULD TERMINATE WITH REVERSE INTO BOT (RIB) STATUS SET. 

4340 ; 

4341 i- 

4342 025466 BGNSUB 3>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
025466 71.4: 
025466 104402 TRAP C$BSUB 

4343 025470 004737 032140 JSR PC, T29REST 3SET COMMAND PACKET 

4344 025474 004737 032232 JSR PC, T29RT2] sSET UP OTHER COMMAND PACKET 

4345 025500 004737 032274 JSR PC, T29RTS ;SET UP OTHER COMMAND PACKET 

4346 025504 012737 023420 026550 MOV #10000. , T29DLY ;SET UP DELAY ROUTINE 

4347 025512 004737 016650 10$: JSR PC ,SOFINIT 3D0 INITIALIZE ON CONTROLLER 

4348 025516 103426 BCS 20$ ;BR IF INIT WAS OK 

4349 025520 DELAY 250 ;DELAY ABOUT .25 SECONDS 
025520 012727 000250 MOV #250, CPC )+ 
025524 000000 -WORD 0 
025526 013727 002116 MOV L$DLY,(PC)+ 
025532 000000 -WORD 0 
025534 005367 177772 DEC -6(PC) 
025540 001375 BNE 74 
025542 005367 177756 DEC -22(¢PC) 
025546 001367 BNE --20 

4350 025550 005337 026550 DEC T29DLY ;BUMP DELAY ROUTINE DOWN 

4351 025554 001356 BNE 10$ ;BR, IF MORE DELAY TIME LEFT 

4352 025556 004737 020104 JSR PC ,FATCHK sINC AND CHECK FOR MORE THAN 25 ERRORS 

4356 025562 010001 MOV RO,R1 s;CONTENTS OF TSSR REGISTER 

4357 025564 ERRDF ERRNO,SFIERR,SFIMSG sFATAL ERROR TSSR WAS NOT OK 
025564 104455 TRAP CSEROF 
025566 000174 «WORD 124 
025570 003554 «WORD SFIERR 
025572 011666 -WORD SFIMSG 

4358 025574 20$: 

4359 025574 012704 026360 MOV #T29PACKET ,R4 ;SUBROUTINE NEEDS PACKET ADDRESS 

4360 025600 004737 010332 JSR PC,WRTCHR sISSUE WRITE CHARACTERISTICS 

4361 025604 103407 BCS 23$ ;BR, IF COMMAND ISSUED OK 

4362 025606 004737 020104 JSR PC ,FATCHK sINC AND CHECK FOR MORE THAN 25 ERRORS 

4366 025612 010001 MOV RO,R1 ;SAVE CONTENTS OF TSSR 

4367 025614 ERRHRD ERRNO,WRTMSG,SFIMSG sWRITE CHARACTERISTISC FAILED 
025614 104456 TRAP C$ERHRD 
025616 000175 -WORD 125 
025620 004760 WORD WRTMSG 
025622 011666 -WORD SFIMSG 

4368 025624 235: CKLOOP ;LOOP IF SELECTED 
025624 104406 TRAP CS$CLP1 

4369 025626 004737 010434 JSR PC ,REWIND ;CALL TAPE REWIND COMMAND 

4370 025632 103411 BCS 30$ 3;BR, IF NO PROBLEM 

4371 025634 016501 000000 MOV TSSRCRS5),R1 ;GET TSSR 

4372 025640 010004 MOV RO,R4 ;SAVE PACKET ADDRESS 

4373 025642 004737 020104 JSR PC ,FATCHK sINC AND CHECK FOR MORE THAN 25 ERRORS 

4377 025646 ERRHRD ERRNO, T29RWN,PKTSSR ;REWIND NOT ACCEPTED 








CZTKHB TK-25 FRT END FUNC 04 





TEST 1: WRITE TAPE MARK RETRY 


4422 026062 
4423 026070 


104456 


012737 





026406 
000002 


020104 


140011 026510 
026510 
177776 
017124 
000000 
000200 


020104 


000012 
000001 026512 
141011 026510 
026510 
177776 
017124 
000000 
000200 


020104 


140410 026510 
000001 026512 


30$: 


40$: 


70$: 
150$: 


155$: 


165$: 


ERRHRD 


CKLOOP 
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T29BFR+6,R1 


40 
PC ,FATCHK 
ERRNO, T29B0T ,EXPREC 


#140011, T29PK3 
@T29PK3,R4 

R4, TSOBCRS) 

PC ,WAITF 
TSSRCRS),R1 


PC .FATCHK 
ERRNO, T29WDC ,PKTSSR 


\ 


#10. ,R3 

#1, T29RB 
#141011, T29PK3 
#T29PK3,R4 

R4, TSDOBCRS) 

PC ,WAITF 
TSSRCRS),R1 
@SSR ,R2 


PC ,FATCHK 
ERRNO, T29WDC ,PKTSSR 


R3 

155$ 

#140410, T29PK3 
#1, T29RB 


TRAP a 


-WORD 26 

WORD T29RWN 

WORD PKTSSR 
sLOOP IF SELECTED 

TRAP CsCLP1 


sPICK UP XSTO 
sSET UP EXPECTED 
sSET BOT BIT IN EXPECTED 
sDOES EXP = REC'D 
sBR, IF EQUAL (OK) 
sINC AND CHECK FOR MORE THAN 25 ERRORS 
sTAPE NOT AT BOT AFTER REWIND 
TRAP CSERHRD 


-WORD 127 
-WORD T29B0T 
-WORD EXPREC 


sLOOP IF SELECTED 
TRAP CSCLP1 


sWRITE TAPE MARK,ACK,CVC=1 COMMAND 
;SET UP R4& WITH PACKET ADDRESS 

sISSUE COMMAND 

sWAIT FOR SSR TO SET 

;GET TSSR CONTENTS 

;SET UP EXPECTED 

s;ARE THEY EQUAL 

3;BR, IF OK 

sINC AND CHECK FOR MORE THAN 25 ERRORS 
;TSSR INCORRECT AFTER “= TAPE MARK 


P CSERHRD 
-WORD 128 
-WORD T29WOC 
-WORD PKTSSR 


sLOOP IF SELECTED 


TRAP 
sNUMBER OF RECORDS TO WRITE TM 
sSET UP PACKET 
sWRITE TAPE MARK RETRY,ACK,CVC=1 COMMAND 
sSET UP R4 WITH PACKET ADDRESS 
sISSUE COMMAND 
sWAIT FOR SSR TO SET 
sPICK UP TSSR 
sSET UP EXPECTED (SSR ONLY) 
sWAS STATUS GOOD 
sBR, IF TERMINATION WAS GOOD 
sINC AND CHECK FOR MORE THAN 25 ERRORS 
s:TSSR NOT CORRECT AFTER tate M. 


CsCLP1 


CSERHRD 
-WORD 129 
-WORD T29WDC 
-WORD PKTSSR 


;LOOP IF SELECTED 


TRAP CSCLP1 
sBUMP COUNTER DOWN 
;BR, IF LESS THAN 10 TAPE MARKS 
sSPACE REVERSE ,ACK,CVC=1, COMMAND 
sNUMBER OF RECORDS TO SPACE BACK 


SEQ 0125 
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GSE ado ela eae 


TEST 1: WRITE TAPE MARK RETRY SEQ 0126 

4424 026076 012704 026510 MOV @T29PK3,R4 sSET UP R4& WITH PACKET ADDRESS 

4425 026102 010465 177776 MOV R4, TSDBCRS) sISSUE COMMAND 

4426 026106 004737 017124 JSR PC ,WAITF sWAIT FOR SSR TO SET 

4427 026112 016501 000000 MOV TSSRCRS),R1 sGET TSSR CONTENTS 

4428 026116 012702 100204 MOV @SSR!SC!BIT2,R2 sSET UP EXPECTED 

4429 026122 020102 CMP R1,R2 sARE THEY EQUAL 

4430 026124 001406 BEQ 222s ;BR, IF OK 

4431 026126 004737 020104 JSR PC ,FATCHK sINC AND CHECK FOR MORE THAN 25 ERRORS 

4435 026132 ERRHRD ERRNO, T29WDE ,PKTSSR sTSSR INCORRECT AFTER SPACE CMD. 
026132 104456 TRAP CSERHRD 
026134 000202 -WORD 130 
026136 027632 -WORD T29WDE 
026140 011700 -WORD PKTSSR 

4436 026142 222$: CKLOOP ;LOOP IF SELECTED 
026142 104406 TRAP CSCLP1 

4437 026144 012737 100410 026510 MOV #100410, T29PK3 sSPACE REVERSE ,ACK, COMMAND 

4438 026152 012737 000005 026512 MOV #5, T29RB sNUMBER OF RECORDS TO SPACE BACK 

4439 026160 012704 026510 MOV @T29PK3,R4 sSET UP R4 WITH PACKET ADDRESS 

4440 026164 010465 177776 MOV R4, TSDBCRS) sISSUE COMMAND 

4441 026170 012737 000310 026550 MOV #200. ,T29DLY sNEED DELAY 

4442 026176 004737 017124 JSR PC ,WAITF sWAIT FOR SSR TO SET 

4443 026202 016501 000000 MOV TSSRCRS),R1 sGET TSSR CONTENTS 

4444 026206 012702 100204 MOV #SSR!SC!BIT2,R2 SET UP EXPECTED 

4445 026212 020102 CMP R1,R2 sARE THEY EQUAL 

4446 026214 001425 BEQ 260$ ;BR, IF OK 

4447 026216 DELAY 250 sDELAY ABOUT .25 SECONDS 
026216 012727 000250 MOV #250 ,(PC)+ 
026222 000000 -WORD 0 
026224 013727 002116 MOV L$DLY,(PC*+ 
026230 000000 -WORD 0 
026232 005367 177772 DEC -6(PC) 
026236 001375 BNE 7-4 
026240 005367 177756 DEC -22(PC) 
026244 001367 BNE --20 

4448 026246 005337 026550 DEC T290LY ;LOOP ROUTINE 

4449 026252 001351 BNE 230$ sLOOP BACK IF NOT ENOUGH DELAY 

4450 026254 004737 020104 JSR PC ,FATCHK sINC AND CHECK FOR MORE THAN 25 ERRORS 

4454 026260 ERRHRD ERRNO, T29SDG,PKTSSR sTSSR INCORRECT AFTER SPACE REV CMD. 
026260 104456 TRAP CSERHRD 
026262 000203 -WORD 131 
026264 031634 -WORD T29SDG 
026266 011700 -WORD PKTSSR 

4455 026270 260$: CKLOOP ;LOOP IF SELECTED 
026270 104406 TRAP CsCLP1 

4456 026272 013701 026414 MOV T29BFR+14,R1 sPICK UP XST3 

4457 026276 010102 MOV R1,R2 SET UP EXPECTED 

4458 026300 052702 000001 BIS #BITO,R2 sRIB SHOULD BE SET 

4459 026304 020102 CMP R1,R2 IS RIB SET 

4460 026306 001406 BEQ 270$ sBR, IF RIB WAS SET (GOOD) 

4461 026310 004737 020104 JSR PC ,FATCHK sINC AND CHECK FOR MORE THAN 25 ERRORS 

4465 026314 ERRHRD ERRNO, T29RIB,EXPREC sTMK NOT SET AFTER READ REV 
026314 104456 TRAP CSERHRD 
026316 000204 -WORD 132 
026320 031716 -WORD T29RIB 
026322 016350 -WORD  EXPREC 

4466 026324 270$: CKLOOP ;LOOP IF SELECTED 
026324 104406 TRAP CsCLP1 
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TEST 1: WRITE TAPE MARK RETRY 
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SEQ 0127 


4467 026326 3308: CKLOOP ;LOOP IF SELECTED 
026326 104406 TRAP CSCLP1 
4468 026330 ENDSUB 3<<<€<€¢¢¢<¢¢¢¢ END SUBTEST >>>>>>>> >>> 
026330 L10042: 
026330 104403 TRAP CsESUB 
4469 
4470 H 
4471 H 
4472 F 
4473 026332 004737 017360 JSR PC, TSTLOOP 300 WE NEED TO ITERATE TEST 
4474 026336 103002 BCC 163$ 3BR, IF NO LOOP REQUIRED 
4475 026340 000137 023702 JMP T29L00P sEXECUTE AGAIN 
4476 026344 1633: EXIT TST ;ALL DONE THIS TEST 
026344 104432 TRAP CSEXIT 
026346 003756 «WORD L10036-. 
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TEST 1: WRITE TAPE MARK RETRY SEQ 0128 
4478 7° ; 
red sLOCAL STORAGE FOR THIS TEST 
; — 
4482 026350 -BLKB 10-<.-TUV2AE7> 
4484 026360 T29PACKET: sCOMMAND PACKET FOR TEST 


4485 026360 014004 -WORD 14004 sWRITE CHARACTERISTICS COMMAND, WITH CVC*1, ACK 
4486 026362 026370 -WORD T29DATA sADDRESS OF CHARACTERISTICS BLOCK 
4487 026364 000000 «WORD 0 
4488 026366 000012 «WORD 10. sSTARTING VALUE OF BLOCK SIZE 
4489 026370 T29DATA: sCHARACTERISTICS DATA BLOCK 
4490 026370 026400 -WORD T29BFR sADDRESS OF MESSAGE BUFFER 
4491 026372 000000 -WORD 0 
4492 026374 000024 -WORD 20. ;LENGTH OF MESSAGE BUFFER 
4493 026376 000000 -WORD 0O 
sane 026400 T29BFR: .BiLKW 25. sMESSAGE BUFFER 
PF 
ee s;WRITE SUBSYSTEM MEMORY COMMAND PACKET 
4 $ 
4499 026462 -BLKB 10-<.-TUV2AE7> 
4501 026470 T29PKe2: 
4502 026470 100006 -WORD 100006 sWRITE SUB SYS MEM COMMAND, AND ACK 
4503 026472 026520 -WORD T29BF2 sADDRESS OF SELECT BLOCK DATA 
4504 026474 000000 -WORD 0 
4505 026476 000006 -WORD 6. sSIZE OF DATA PACKET 
4507 026500 -BLKB 10-<.-TUV2AE7> 
4509 026510 T29PK3: 
4510 026510 140005 -WORD 140005 sWRITE TAPE MARK RETRY COMMAND, CVC=1 AND ACK 
4511 026512 T29RB: 
4512 026512 003076 T29WB: .WORD FREE sADDRESS OF WRITE BUFFER 
4513 026514 000000 -WORD 0O 
4514 026516 000000 T29SZ: .WORD 0O sSIZE OF BUFFER (EXTENT) 
4515 .EVEN 
4516 8 
4517 026520 T29BF2: 
4518 026520 010 T29BSO: .BYTE 10 ;BSELO AREA 
4519 026521 200 T29BS1: .BYTE 200 ;BSEL1 AREA 
4520 026522 000000 T29S2: .WORD 0 ;SEL 2 AREA 
4521 026524 000000 T2983: .WORD 0 sDATA AREA 
4522 -EVEN 
rns ;TAPE MOTION PACKET COMMAND VALUES 
4 
4525 026526 140001 T29RN: .WORD 140001 sREAD DATA 
4526 026530 140401 T29WOR: .WORD 140401 sREAD DATA REVERSE 
4527 026532 141001 T29CON: .WORD 141001 sREAD PREVIOUS OPP=0 
4528 026534 161001 -WORD 161001 sREAD PREVIOUS OPP=1 
4529 026536 141401 -WORD 141401 sWRITE TAPE MARK RETRY NEXT OPP=0 5 
4530 026540 161401 -WORD 161401 sWRITE TAPE MARK RETRY NEXT OPP=1 
ries 026542 177777 -WORD 177777 sEND OF DATA 
2 3 
aon 026544 000000 T29CNT: .WORD 0 sTAPE RECORD COUNTER STORAGE AREA 
4535 026546 000000 T29RSZ: .WORD 0 sRECORD STORAGE SIZE AREA 
4536 026550 000000 T29DLY: .WORD sDELAY COUNTER STORAGE AREA 


-— 
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— 


032111 


032140 
032140 
032144 
032150 
032154 
032160 
032162 





012701 
012721 
012721 
005021 
012721 


026360 
140004 
026370 


000012 
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3* 
sLOCAL TEXT MESSAGES FOR TEST 


T290FL: 
T29WNG : 
T29NEF : 


T29RRN: 
TST2910: 


3¢ 


;ROUTINE TO RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUES 
sWRITE SUBSYSTEM MEMORY COMMAND 


T29REST: 


-ASCIZ 
-ASCIZ 
-ASCIZ 


: .ASCIZ 
: .ASCIZ 
-ASCIZ 


-ASCIZ 


: .ASCIZ 
: .ASCIZ 
: .ASCIZ 
: .ASCIZ 
: .ASCIZ 


-ASCIZ 


: ,ASCIZ 
: LASCIZ 
: JASCIZ 


-ASCIZ 


N: LASCIZ 
: .ASCIZ 
: .ASCIZ 


-ASCIZ 


: JASCIZ 
: LASCIZ 


-ASCIZ 


: .ASCIZ 
: .ASCIZ 
: .ASCIZ 
: .ASCIZ 
: .ASCIZ 
: .ASCIZ 
: .ASCIZ 
: .ASCIZ 
: .ASCIZ 


ASCIZ 


‘Drive is OFFL 
‘Tape Position 
‘WRITE TAPE MA 
‘TSSR Incorrec 
‘WRITE TAPE MA 
‘WRITE TAPE MA 


‘POSITION (Space Command) Failed, TSSR Not Correct’ 


‘RIB NOT SET A 
‘TSSR Not Corr 
‘Illegal Mode 
‘WRITE TAPE MA 
‘TSSR Not Corr 


‘TSSR Not Corr 
‘Tape Not At B 
‘Date Written 
‘WRITE TAPE MA 
‘TSSR Not Corr 
‘Rewind (POSIT 


‘RAM Error, Correct Date Pattern Not In Ram’ 


‘TSSR Init. Fa 
‘TSSR Not Corr 
‘TSSR Not Corr 
‘CVC Set, Didn 
‘TSBA Not Corr 
‘WRITE SUBSYST 
‘Reading Long 
‘Reading Long 
‘Residual Byte 
a one 
‘Dete WRITE TA 
‘TSSR Incorrec 
‘TSSR Incorrec 
‘WRITE TAPE MA 


‘TMK (XSTO) Failed To Set After READ REVERSE Into Tape Mark‘ 


-ASCIZ ‘Write 


ST29PACKET,R1 
#140004, (R1)+ 
#T29DATA,(CR1)+ 
C(R1)+ 

#10. ,CR1)+ 






























SEQ 0129 


INE’ 
Incorrect After WRITE TAPE MARK RETRY Previous (OPP=1)* 
RK RETRY, At BOT, Failed To Set NEF (XSTO)’ 
t After READ DATA Command’ 
RK RETRY Previous (Space Reverse, Read Forward) Command Failed 
RK RETRY Previous (Read Forward, Space Reverse) Command Failed 


FTER READ REVERSE INTO BOT’ 

ect After Illegal Mode Bits Set’ 
Bits, Failed To Set ILC Bit In XxSTO’ 
RK RETRY COMMAND Not Accepted’ 

ect After SPACE REVERSE DATA Command’ 


ect After WRITE Command’ 

OT After REWIND Command’ 

To Tape Not Equal To Data Read From Tape’ 

RK RETRY DATA OVER EOT GAVE NO TAPE STATUS ALERT’ 
ect After SPACE REVERSE Into BOT’ 

ION) Command Not Accepted’ 


iled After WRITE TAPE MARK RETRY COMMAND’ 

ect After WRITE TAPE MARK RETRY DATA Command, SWB Bit Set’ 
ect After WRITE TAPE MARK RETRY DATA Command’ 

‘*t Reset VCK In Message Buffer’ 

ect After WRITE TAPE MARK RETRY DATA Command’ 

EM MEMORY Command Not Accepted (RAM Read)’ 

Record Failed To Set RLL Bit In XSTO’ 

Record Failed To Set RLS Bit In XSTO’ 

Count Incorrect After Short Record Read’ 

Record Failed To Give Tape Status Alert’ 

PE MARK RETRY From Tape Not Correct, After SWB=1' 

t After READ REVERSE Into Tape Mark’ 

t After SPACE REVERSE Into Tape Mark’ 

RK RETRY At First Record, Failed To Set RIB (XST3)’ 


Tape Mark Retry’ 


sSAVE THE REGISTERS 
sSTART OF THE PACKET 
sWRITE SUBSYSTEM MEM. WITH ACK, CVC=1 
sADDRESS OF CHARAISTICS DATA BLOCK 
sEXTENDED ADDRESS 

sSIZE OF DATA BLOCK IN BYTES 
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TEST 1: WRITE TAPE MARK RETRY 


poe 


4595 032166 
4596 032172 
4597 032174 


032270 
032272 
032274 
032274 
032300 
032304 
032310 
032314 
032316 
032322 
032324 
032324 
032324 


012721 


012701 
012721 
012721 
005021 
012711 
000207 


104401 


026400 
000024 
000000 
000030 
177777 


000000 


026470 
140006 
026520 
000006 


026520 


026510 
000000 
000000 


000000 
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sSIZE OF 
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MOV @T29BFR,(R1)+ 
CLR (R1)+ 
MOV #20. ,CR1)+ 
CLR C(R1)-+ 
MOV #0,(R1) 
MOV €24., 

026400 64%: MOV #177777, T29BFRCR2) 
TST -(R2) 
CMP R2,40 
BNE 64$ 
RTS PC 

T29RT2: 
SAVREG 
MOV @T29PK2,R1 
MOV #140006, (R1)+ 
MOV #T29BF2,(R1)+ 
CLR CR1i)+ 
MOV 06.,(R1)+ 
CLR (R1)+ 
MOV @T29BF2,R1 
CLR (R1i)+ 
CLR (R1) 
RTS PC 
T29RT3: 

SAVREG 
MOV #T29PK3,R1 
MOV #0,(R1)+ 
MOV #0,(R1)+ 
CLR (R1)+ 
MOV #0,(R1) 
RTS PC 
ENDTST 


sADDRESS OF MESSAGE BUFFER 
sLENGTH OF MESSAGE BUFFER 


sSELECT DRIVE ZERO (0) 

sNUMBER OF LOCATIONS TO BE CLEARED 
sALL ONES TO MESSAGE BUFFER 

sNEXT LOCATION 

sCHECK FOR END OF LOOP 

sKEEP GOING UNTIL DONE 

s;RETURN 


sSAVE THE REGISTERS 

sSTART OF THE PACKET 

sWRITE SUBSYSTEM MEM. WITH ACK,CVC=1, 
sADDRESS OF DATA BLOCK 

sEXTENDED ADDRESS 

sSIZE OF DATA BLOCK IN BYTES 


sPOINT TO DATA SEL AREA 


sRETURN 


sSAVE THE REGISTERS 

sSTART OF THE PACKET 

sWRITE SUBSYSTEM MEM. WITH ACK, 
sADDRESS OF DATA BLOCK 

sEXTENDED ADDRESS 

DATA BLOCK IN BYTES 

sRETURN 


L10036: 
TRAP 


CSETST 









SEQ 0130 
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TEST 2: SKIP TAPE MARKS SEQ 0131 
4631 -SBTTL TEST 2: SKIP TAPE MARKS 
4632 3° 
4633 3 
4674 sTHIS TEST VERIFIES PROPER OPERATION OF THE SKIP TAPE MARKS 
4635 sFORWARD AND SKIP TAPE MARKS REVERSE COMMANDS. PROPER OPERATION 
4636 sUNDER CONTROL OF ALL COMBINATIONS OF THE ENABLE SKIP TAPE MARKS 
4637 sSTOP CESS) AND ENABLE TAPE MARKS STOP OFF BOT (ENB) BITS SPECIFIED 
4638 3BY THE WRITE CHARACTERISTICS COMMAND. THE TEST CONSISTS OF THE 
4639 sFOLLOWING SUBTESTS (FOR EACH SUBTEST, THE TAPE IS FIRST WRITTEN 
4640 ;WITH AN APPROPRIATE SERIES OF DATA RECORDS AND/OR TAPE MARKS 
4641 3AND/OR DOUBLE TAPE MARKS. 
4642 3 
4643 3 
roe ;THE TEST CONSISTS OF THE FOLLOWING 11 SUBTESTS 
Fy 

4646 3 
4647 8 
4648 3- 
4649 032326 BGNTST 

032326 T2:: 
4650 032326 005037 002172 CLR FATFLG ;CLEAR FATAL ERROR FLAG 
4651 032332 005037 003104 CLR KTFLG sHOLD OFF KTi1 
4652 032336 012737 005676 002150 MOV #EPRT1,EPRTSW sPRIMARY ERROR MESSAGE 
4657 022344 012700 041121 MOV @TST30I0 ,.RO sASCII MESSAGE TO IDENTIFY TEST 
4658 022350 004737 017412 JSR PC, TSTSETUP 300 INITIAL TEST SETUP 
road 032354 012737 000001 002166 MOV #1,LOOPCNT sPERFORM 1 ITERATIONS 

3° 

4661 ’ 
4662 sTEST 2, SUBTEST 1 
4663 3 
4664 3 
4665 sVERIFIES THAT A SKIP TAPE MARKS FORWARD COMMAND WITH 
4666 3A TAPE MARK COUNT OF 1 OPERATES OPERATES PROPERLY. THE TAPE 
4567 3IS FIRST REWOUND, THEN WRITTEN WITH SEVERAL “FILES”; 
4668 sEACH FILE CONSISTS OF A NUMBER OF DATA RECORDS 
4669 sFOLLOWED BY A TAPE MARK. THE FINAL FILE IS 
4670 s TERMINATED BY A DOUBLE TAPE MARK. EACH DATA RECORD 
4671 sCONTAINS A FILE NUMBER AND THE RECORD NUMBER WITHIN 
4672 ;THE FILE SO THAT TAPE POSITION CAN BE SUBSEQUENTLY 
4673 sVERIFIED BY READING THE DATA. THE TAPE IS AGAIN 
4674 sREWOUND AND A SERIES OF SKIP TAPE MARKS FORWARD 
4675 sCOMMANDS ARE ISSUED AND THE RESULTS (TAPE STATUS ALERT 
4676 sTERMINATION, TMK=1 STATUS, TAPE POSITION VIA READ 
4677 sCOMMAND) IS CHECKED. PRIOR TO ISSUANCE OF EACH SKIP 
4678 sCOMMAND, A WRITE CHARACTERISTICS COMMAND IS ISSUED TO 
4679 ;SET UP THE ESS AND ENB CONTROL BITS. ALL 
4680 sCOMBINATIONS OF ESS AND ENB ARE USED (00,01,10, 
4681 311); OPERATION SHOULD BE THE SAME IN EACH CASE FOR 
4682 ;THIS SUBTEST. 
4683 H 
4684 H 
4685 8° 
4686 
4687 032362 T3OLOOCP: 
4688 032362 BGNSUB 3>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 

032362 T2.1: 


rm - 


032362 104402 





TRAP C$BSUB 
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4689 032364 
4690 032370 
4691 032374 
4692 032400 
4693 032404 
4694 032412 
4695 032416 
4696 032420 
032420 
032424 
032426 
032432 
032434 
032440 
032442 
032446 
4697 032450 
4698 032454 
4699 032456 
4703 032462 
4704 032464 
032464 
032466 
022470 
022472 
4705 032474 


4707 032474 


4715 032500 
4716 032504 
4717 032506 
4721 032512 
4722 032514 
032514 
032516 
032520 
032522 
4723 032524 
032524 


4731 032526 
4732 032532 
4733 032534 
4734 032536 


004737 
005037 
004737 
004737 
012737 
004737 
103426 


012727 
000000 
013727 
000000 


005367 
001375 
005367 
001367 
005337 
001356 
004737 
010001 


104455 
000311 
003554 
011666 


012704 


004737 
103407 
004737 
010001 


104456 
000312 
004760 
011666 


104406 


004737 
103411 
010004 
016501 


041142 
036544 
041234 
041276 
176750 
016650 
000250 
002116 
177772 
177756 
036546 


020104 


036360 


010332 
020104 


010434 


000000 
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036546 


MOV #65000. , TSODLY 
108: JSR PC ,.SOFINIT 

ecs 20$ 

DELAY 250 

DEC T3ODLY 

BNE 10$ 

JSR PC ,FATCHK 

MOV RO,R1 

ERRDF ERRNO,SFIERR,SFIMSG 
208: 


MOV STSOPACKET ,R4 


; 
sISSUVE WRITE CHARACTERISTICS COMMAND 


sSET COMMAND PACKET 

sCLEAR FILE COUNTER 

sSET UP OTHER COMMAND PACKET 
sSET UP OTHER COMMAND PACKET 
sSET UP DELAY COUNTER 

sD0 INITIALIZE ON CONTROLLER 
sBR IF INIT WAS OK 

sDELAY ROUTINE CALL 


sBUMP COUNTER 
sBR, IF MORE COUNTING TO DO 


sINC AND CHECK FOR MORE THAN 25 


sCONTENTS OF TSSR REGISTER 

sFATAL ERROR TSSR WAS NOT OK 
TRAP 
- WORD 
- WORD 
- WORD 


#250.(PC)« 
L#DLY. CPC) 
-6(PC) 

.-4 

-22(PC) 
.-20 


sSUBROUTINE NEEDS PACKET ADDRESS 


§ 2060600666646 66 64660660066460666466466646 460606006 6466064646046406646606084448 


. 
§ 9686666666666 6060666664666 6664666066466 46666604606600646 464646404646 480464 


JSR PC ,WRTCHR 
23% 


BCS 

JSR PC ,FATCHK 

MOV RO,R1 

ERRHRD ERRNO, WRTMSG ,SFIMSG 


23%: CKLOOP 


sISSUE WRITE CHARACTERISTICS 
;BR, IF COMMAND ISSUED OK 


sINC AND CHECK FOR MORE THAN 25 ERRORS 


sSAVE CONTENTS OF TSSR 
sWRITE CHARACTERISTISC toy 


- WORD 
. WORD 
-WORD 


TRAP 


;LOOP IF SELECTED 


§ 99666460 66666646666 6646 4664646646646 464666404646 64606044464640464044440464 44 


5 
sISSUE A REWIND TO TAPE DRIVE AND WAIT FOR SSR TO SET 
; 


SSSESEAEEAEEKESEAEALEASESEEEAEEEAEAAAASASAESEEELEEADEDAEEEE 


JSR PC ,REWIND 
30$ 


RO,R4 
MOV TSSRCRS),R1 


sCALL TAPE REWIND COMMAND 
BR, IF NO PROBLEM 

sGET PACKET ADDRESS 

sGET STATUS REGISTER 


CSERHRD 
202 


WRTMSG 
SF IMSG 


CSCLP1 


SEQ 0132 
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4735 
4739 


4768 
4769 
4770 
4771 


4774 
4775 


032542 
032546 
032546 


032560 
032564 
032566 
032572 
032574 
032576 
032602 
032602 
022604 
032606 
032610 
032612 
032612 
032614 
032622 
032626 
032634 


032642 


032716 


032722 


004737 


104456 
000313 
040130 
011700 


104406 


013701 
010102 
052702 
020102 
001406 
004737 


104456 
000314 
037731 
016350 


104406 
012737 
012703 
013737 
012737 


012737 
012704 
013702 
000302 
010301 
060201 
010177 
010465 
004737 
016501 
012702 
020102 
001406 
004737 


020104 


036406 
000002 


020104 


000001 
000001 
003076 
003720 


140005 
036510 
036544 


150204 
177776 
017124 
000000 
000200 


020104 
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036544 


036512 
036516 


036510 





JSR PC .FATCHK 
ERRHRD ERRNO, 1SORWN,PKTSSR 


30$: CKLOOP 


sINC AND CHECK FOR MORE THAN 25 ERRORS 
sREWIND NOT ACCEPTED 
TRAP — 


- WORD 
-WORD T3ORWN 
-WORD PKTSSR 


sLOOP IF SELECTED 
TRAP CSCLPi 


§ 90000600666 466660646606066646 666066 646660666466066664666666646460466466 


; 
sGET EXTENDED STATUS REGISTER ZERO (XSTO) FROM MESSAGE BUFFER 
; 


§ 9066606 60660460066 6666666006666 664660606466 6066660606666066606064606464666 


MOV oe 


MOV R1,R2 
BIS #BIT1,R2 
CMP Ri .R2 
BEQ 40$ 


CHK 
ERRHRD ERRNO, TSOBOT ,EXPREC 


40$: CKLOOP 


MOV #1., T30FCN 
643: MOV #1,R3 
65$: MOV FREE , T3OWB 
MOV #2000. , T30SZ 


sPICK UP XSTO 

sSET UP EXPECTED 

sSET BOT BIT IN EXPECTED 

DOES EXP = REC'D 

sBR, IF EQUAL (OK) 

sINC AND CHECK FOR MORE THAN 25 ERRORS 

TAPE NOT AT BOT AFTER —— 
oR 


‘ CSERHRD 
-WORD 204 
-WORD T3OBOT 
-WORD EXPREC 


;LOOP IF SELECTED 
TRAP CsCLPi 


sSET “FILE” COUNTER AT 1 DECIMAL 
sONE RECORD PER “FILE” 

sSET UP PACKETS'S WRITE BUFFER 
sSET RECORD SIZE AT 2000 BYTES 


SRSSREEEEASEAESEEEEAEEEASEEEEEEEAEEAREEEAKEREDEEEEEEEEEEELE 


3 
sWRITE DATA,ACK,CVC=1 COMMAND 
; 


FSRERKASEREEESEASEAEEEAESESEESEAEKEAEEEAASEAEEE EERE DERE EEEE 


MOV #140005, T30PK3 
MOV #T30PK3,R4 
MOV T30FCN,R2 


SWAB R2 
MOV R3,R1 
ADD R2,R1 


MOV R1,QFREE 
MOV R4,TSDBCRS) 
JSR PC ,WAITF 
MOV TSSRCRS),R1 
MOV @SSR ,R2 


$ 
JSR PC ,FATCHK 


ERRSOFT ERRNO, TSOWDD ,PKTSSR 


sWRITE DATA,ACK,CVC=1 COMMAND 
;SET UP R4&4 WITH PACKET ADDRESS 
;GET FILE COUNTER 

sMOVE TO UPPER BYTE 

;GET RECORD COUNTER 

sFILE COUNTER IN UPPER, RECORD # LOW 
sMOV TO OUT PUT BUFFER 

;ISSUE COMMAND 

sWAIT FOR SSR TO SET 

;GET TSSR CONTENTS 

;SET UP EXPECTED 

sARE THEY EQUAL 

3;BR, IF OK 

sINC AND CHECK FOR MORE THAN 25 ERRORS 
;SOFT ERROR, DON’T CARE ABOUT WRITE 
;COMMAND'S RESULTS - CHECKING SKIP 
;TAPE MARK COMMAND 

:TSSR INCORRECT AFTER WRITE DATA 






SEQ 0133 
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4839 


032722 
032724 
032726 
032730 
032732 
032732 
032734 
032736 
032742 


32744 
032752 
032756 
032762 
032766 
0327/72 
032776 
023000 
033002 
033006 
033006 
033010 
033012 
033014 
033016 
033016 
033020 
033024 
033032 


033034 
033042 
033046 
033052 
033056 
033062 
033066 
033070 
033072 
033076 
033076 
033100 
033102 
033104 
033106 


104457 
000315 
037060 
011700 


104406 
005203 
020327 
001331 


012737 
012704 
010465 


-004737 


016501 
012702 


012737 
012704 
010465 
004737 
016501 
012702 
020102 
001406 
004737 


104456 
000317 
040252 
011700 


000021 


141011 
036510 
177776 
017124 
000000 
000200 


020104 


036544 
036544 


141011 
0 
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TRAP CSERSOFT 
205 


-WORD 
«WORD T3OWDD 
WORD PKTSSR 


70$: CKLOOP sLOOP IF SELECTED 
TRAP CSsCcLP1 
INC R3 sCOUNT THE RECORD COUNTER DOWN 
CMP R3,@21 sAT 20 YET 
BNE 65$ sBR, IF NOT AT 20 RECORDS WRITTEN 
FERSREERERAAEAASAEAE SEERA AE SEEAEEEEEREEEREDEEEEEEEEEEEEEE 
; 
sWRITE TAPE MARK,ACK,CVC=1 COMMAND 
; 
sRRREEEREEEEEEEEEEEEEAEEEEEAEEAEEEEEEEEEE EERE EE EAEEEEEEEE 
036510 MOV #141011, T3OPK3 sWRITE TAPE MARK ,ACK,CVC=1 COMMAND 
MOV @T3OPK3,R4 sSET UP R4 WITH PACKET ADDRESS 
MOV R4, TSOBCRS) sISSUE COMMAND 
JSR PC ,WALTF sWAIT FOR SSR TO SET 
MOV TSSRCRS),R1 sPICK UP TSSR 
MOV @SSR ,R2 sSET UP EXPECTED (SSR ONLY) 
CMP R1,R2 sWAS STATUS GOOD 
BEQ 160$ ;BR, IF TERMINATION WAS GOOD 
JSR PC ,FATCHK sINC AND CHECK FOR MORE THAN 25 ERRORS 
ERRHRD ERRNO, TSOWDC ,PKTSSR sTSSR NOT CORRECT AFTER WRT TAPE M. 
TRAP CSERHRD 
-WORD 206 
-WORD T3OWDC 
-WORD PKTSSR 
160$: CKLOOP sLOOP IF SELECTED 
TRAP CSsCLP1 
INC T30OF CN sCOUNT THE “FILE” COUNTER DOWN 
000006 CMP T3OF CN, #6 sWRITE 5 FILE TO TAPE 
BNE 648 sBR, IF NOT AT S FILES WRITTEN 
Pirro ro rire rrr rrr itr iriitittitititttitttittt ttt tty 
; 
sWRITE TAPE MARK,ACK,CVC=1 COMMAND 
; 
Pirro iri rir rrr irri iririitititititititi ttt ttt ttt ttt ttt 
036510 MOV #141011, T30PK3 sWRITE TAPE MARK,ACK,CVC=1 COMMAND 
MOV #T3OPK3,R4 ;SET UP R4 WITH PACKET ADDRESS 
MOV R4,TSDBCRS) sISSUE COMMAND 
JSR PC ,WAITF sWAIT FOR SSR TO SET 
MOV TSSR(RS),R1 sPICK UP TSSR 
MOV #SSR ,R2 sSET UP EXPECTED (SSR ONLY) 
CMP R1,R2 sWAS STATUS GOOD 
BEQ 165$ ;BR, IF TERMINATION WAS GOOD 
JSR PC ,FATCHK sINC AND CHECK FOR MORE THAN 25 ERRORS 


ERRHRD ERRNO, TSOWDC ,PKTSSR 


165$: CKLOOP 


sTSSR NOT CORRECT AFTER WRT TAPE M. 
TRAP CSERHRD 
-WORD 207 
-WORD T3OWDC 
-WORD PKTSSR 





;LOOP IF SELECTED 





SEQ 0134 
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TEST 2: SKIP TAPE MARKS SEQ 0135 
5 033106 104406 TRAP CSCLP1 
4 
4841 FRRAAREKESESARARAREREAAARAEAREKEREAERARERERALEEESEEEEEEEERES 
4842 3 
asa sISSUE A REWIND TO TAPE ORIVE AND WAIT FOR SSR TO SET 
3 
4845 FSREREAEAESEAAEEAEAAERASEEEAARESEAAKAAEAEEREREEREEAASEEDEE 
4846 
4847 033110 004737 010434 JSR PC ,REWIND ;CALL TAPE REWIND COMMAND 
4848 033114 103411 BCS 170$ :BR, IF NO PROBLEM 
4849 033116 010004 MOV RO,R4 ° ;GET PACKET ADDRESS 
4850 033120 016501 000000 MOV TSSRCRS),R1 ;GET STATUS REGISTER 





4851 033124 004737 020104 JSR PC ,FATCHK sINC AND CHECK FOR MORE THAN 25 ERRORS 

4855 033130 ERRHRD ERRNO, T3ORWN,PKTSSR sREWIND NOT ACCEPTED 
033130 104456 TRAP CSERHRD 
033132 000320 «WORD 208 
033134 040130 -WORD T3ORWN 
033136 011700 «WORD PKTSSR 

4856 033140 170$: CKLOOP ;LOOP IF SELECTED 

_ 033140 104406 TRAP CSCLP1 

4858 PrP e rrr ii rit itt tit tt tt tit TTT TTT TT TT TTT TTT TTT TTT TTT TTT TTT 

4859 H 

4860 sGET EXTENDED STATUS REGISTER ZERO (XSTO) FROM MESSAGE BUFFER 

4861 3 

4862 SRRRREEEAEERARAEERESERSAREAEEAAEAEEAKEREEAAEEARESEEALEARERES 

4863 

4864 033142 013701 036406 MOV T30BFR+6,R1 ;PICK UP XSTO 

4865 033146 010102 MOV R1,R2 ;SET UP EXPECTED 

4866 033150 052702 000002 BIS #B1IT1,R2 ;SET BOT BIT IN EXPECTED 

4867 033154 020102 CMP R1,R2 sDOES EXP = REC'D 

4868 033156 001406 BEQ 180$ ;BR, IF EQUAL (OK) 

4869 033160 004737 020104 JSR PC ,FATCHK sINC AND CHECK FOR MORE THAN 25 ERRORS 

4873 033164 ERRHRD ERRNO, T3O0BOT,EXPREC ;TAPE NOT AT BOT AFTER REWIND 
033164 104456 TRAP CSERHRD 
033166 000321 «WORD 209 
033170 037731 -WORD T30BOT 
033172 016350 -WORD EXPREC 

4874 033174 180$: CKLOOP ‘ ;LOOP IF SELECTED 
033174 104406 TRAP CSCLP1 

oxen 033176 012703 036526 MOV #T30IMV,R3 ;SET UP POINTER TO COMMAND TABLE 

4876 

4877 033202 011337 036376 182$: MOV (R3),T30ETM ;GET NEXT COMMAND 

4878 033206 012704 036360 MOV #T3OPACKET ,R4 ;SUBROUTINE NEEDS PACKET ADDRESS 

4879 

4880 Ere Tere rei iter titi ttt tet ttt ttt TTT TTT TTT TTT TTT TTT TTT TTT 

4881 F 

reas | s;ISSUE WRITE CHARACTERISTICS COMMAND 

488 3 

4884 fRERKAERAAAEAAAEEERAEEAARAARAREAAAAAAEAARAKERKEERKERAERES LE 

4885 

4886 033212 004737 010332 JSR PC ,WRTCHR sISSUE WRITE CHARACTERISTICS 

4887 033216 103407 BCS 188$ :BR, IF COMMAND ISSUED OK 

4888 033220 004737 020104 JSR PC ,FATCHK sINC AND CHECK FOR MORE THAN 25 ERRORS 

4892 033224 010001 MOV RO,R1 sSAVE CONTENTS OF TSSR 

4893 033226 ERRHRD ERRNO,WRTMSG,SFIMSG sWRITE CHARACTERISTISC FAILED 
033226 104456 TRAP CSERHRD 

i SS 
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TEST 2: SKIP TAPE MARKS SEQ 0136 
033230 000322 -WORD 210 
033232 004760 -WORD WRTMSG 
033234 011666 -WORD SFIMSG 

4894 033236 188$: CKLOOP sLOOP IF SELECTED 
pom 033236 104406 TRAP C$CLP1 
4896 FSRRARARERERESERERESERAREREAEAEAAEERERARERAAEALALESARERERES 
4897 ; 
aaet sSKIP TAPE MARK,ACK,CVC=1 COMMAND 
48 ; 
4900 FRERASEAERARESEREREAEAEAAEASEASERERERAEAREREAEAEERALE SEER RE 
4901 P 
4902 033240 012737 141010 036510 MOV #141010, T30PK3 sSKIP TAPE MARK,ACK,CVC=1 COMMAND 
4903 033246 012737 000001 036512 MOV #1,T30RB ;SET UP NUMBER TO SKIP 
4904 033254 012704 036510 MOV #T3OPK3,R4 sSET UP R4 WITH PACKET ADDRESS 
4905 033260 010465 177776 189$: MOV R4, TSDBCRS) sISSUE COMMAND 
4906 033264 012737 176750 036546 MOV #65000. , TSODLY sSET UP DELAY COUNTER 
4907 033272 004737 017124 190$: JSR PC ,WAITF sWAIT FOR SSR TO SET 
4908 033276 016501 000000 MOV TSSRCRS),R1 sPICK UP TSSR 
4909 033302 032701 000200 BIT #SSR,R1 sIS SSR SET YET 
4910 033306 001017 BNE 191$ :BR, IF SSR IS SET 
4911 033310 DELAY 250 sCALL DELAY ROUTINE 
033310 012727 000250 MOV #250,(PC)+ 
023314 000000 -WORD 0O 
033316 013727 002116 MOV LSDLY,(PC)+ 
033322 000000 -WORD 0 
033324 005367 177772 DEC -6(PC) 
033330 001375 BNE .-4 
033332 005367 177756 DEC -22(PC) 
033336 001367 BNE --20 
4912 033340 005337 036546 DEC T3ODLY sBUMP DELAY ROUTINE 
4913 033344 001352 BNE 190$ sBR, IF MORE DELAY TO GO 
4914 033346 012702 000200 191$: MOV #SSR ,R2 sSET UP EXPECTED (SSR ONLY) 
4915 033352 020102 CMP R1,R2 sWAS STATUS GOOD 
4916 033354 001406 BEQ yes ;BR, IF TERMINATION WAS GOOD 
4917 033356 004737 020104 JSR PC ,FATCHK sINC AND CHECK FOR MORE THAN 25 ERRORS 
4921 033362 ERRHRD ERRNO, T3OSKM ,PKTSSR sTSSR NOT CORRECT AFTER SKIP TAPE M. 
033362 104456 TRAP CSERHRD 
033364 000323 WORD 211 
033366 037004 -WORD T3OSKM 
033370 011700 -WORD PKTSSR 
4922 033372 192$: CKLOOP sLOOP IF SELECTED 
os 033372 104406 TRAP CSCLP1 
49 
4924 Hlth nten bette ett t ete tir eri te tet ete ttt ttiti ti tt Tt ttt? ty 
4925 5 
4926 sGET EXTENDED STATUS REGISTER ZERO (XSTO) FROM MESSAGE BUFFER 
4927 ; 
4928 §EREERAREEEAAEAEEEAEEARAREREAAAAAAAARARAAERAARARALEALAREE ES 
4929 
4930 033374 013701 036406 MOV T3OBFR+6,R1 sPICK UP XSTO 
4931 033400 010102 MOV R1,R2 sSET UP EXPECTED 
4932 033402 052702 100000 BIS #BIT15,R2 sSET TMK BIT IN EXPECTED 
4933 033406 020102 CMP R1,R2 sDOES EXP = REC'D 
4934 033410 001406 BEQ 195$ ;BR, IF EQUAL (OK) 
4935 033412 004737 020104 JSR PC ,FATCHK sINC AND CHECK FOR MORE .HAN 25 ERRORS 
4939 033416 ERRHRD ERRNO, T3OTMK ,EXPREC sTMK NOT SET AFTER WRT TAPE MARK 
z ce a RE RE A eR A 
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4985 


033416 


004737 
013737 


012737 
012704 
012737 
010465 
004737 
016501 
012702 
020102 
001406 
004737 


104456 
000325 
037303 
011700 


104406 
017701 
012702 
020102 
001006 
004737 


104456 
000326 
040760 
016350 


104406 
012702 
017701 
020201 
001406 
004737 


104456 
000327 
037132 
016350 


104406 


177777 
020376 
003076 


140001 
036510 
003720 
177776 
017124 
000000 
000200 


020104 


147342 
177777 


020104 


001001 
147304 


020104 
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036512 


036510 
036516 


195$: 


CKLOOP 


MOV 
JSR 
MOV 


#177777,R0 
PC ,FILLMEM 
FREE , TSORB 


TRAP CSERHRD 

-WORD 212 

«WORD T3OTMK 

-WORD EXPREC 
;LOOP IF SELECTED 

RAP CSCLPi 


T 
sVALUE TO WRITTEN TO MEMORY 
sFILL MEM WITH ALL ONES 
sSTARTING READ BUFFER ADDRESS 


FREREAEAAAEAESEEAERERERASEAESEAERASEARERASREREREEEALALEEE EE 


: 
sREAD FORWARD, ACK,CVC=1 COMMAND 
; 


FRRERREREEAEEEAEREAAREAAEAAAEEARERERARARERALEEEREREEEREEAE 


200$: 


2208: 


2288: 


JSR 
ERRHRD 


CKLOOP 


ERRHRD 


CKLOOP 


ERRHRD 


~ CKLOOP 


#140001, T30PK3 
#T30PK3,R4 
#2000. , T30SZ 
R4, TSDBCRS) 

PC ,WAITF 
TSSRCRS),R1 
#SSR ,R2 

R1 “2 

ae. ¢ 

P..FATCHK 
ERRNO, T3ORDF ,PKTSSR 


OFREE,R1 

#177777,R2 

R1,R2 

2208 

PC ,FATCHK 

ERRNO, TSODTR,EXPREC 


#1001,R2 

OFREE,R1 

R2,R1 

228% 

PC ,FATCHK 

ERRNO, TSOPTB ,EXPREC 


sREAD FORWARD, ACK,CVC=1 COMMAND 
sSET UP R4 WITH PACKET ADDRESS 
sSET UP RECORD SIZE IN PACKET 
sISSUE COMMAND 

sWAIT FOR SSR TO SET 

sGET TSSR CONTENTS 

sSET UP EXPECTED 

sARE THEY EQUAL 

sBR, IF OK 

sINC AND CHECK FOR MORE THAN 25 ERRORS 
sTSSR INCORRECT AFTER a 


CSERHRD 
-WORD 213 
-WORD T3ORDF 
-WORD PKTSSR 


sLOOP IF SELECTED 
TRAP CsCLP1 


sFIRST LOC IN READ BUFFER 

sEXPECTED IF NO DATA TRANS. 

DID ANY DATA GET TRANSFERRED 

:BR, IF NO DATA TRANS (GOOD) 

sINC AND CHECK FOR MORE THAN 25 ERRORS 
;DATA TRANSFERRED ON READ TAPE MARK 


TRAP CSERHRD 

-WORD 214 

-WORD T3ODTR 

-WORD EXPREC 
;LOOP IF SELECTED 

TRAP C$CLP1 


sSET UP RECORD NUMBER EXPECTED (FILE 2) 
sGET INFO FROM BUFFER 

sARE THEY EQUAL 

sBR, IF EQUAL (OK) 

sINC AND CHECK FOR MORE THAN 25 ERRORS 
sRECORD POSITION WAS sea * “one 


RAP C$ERHRD 

-WORD 215 

-WORD T30PTB 

-WORD  EXPREC 
;LOOP IF SELECTED 

TRAP CSCLPi 


SEQ 0137 
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4986 
4987 FRRRAAAEARAAAEARESAERAREASARAERAERARAAAAAEALERALRALEEELEEEEES 
4988 2 
pte sISSUE A REWIND TO TAPE DRIVE AND WAIT FOR SSR TO SET 
2 
4991 {RARER RERERERAEEEEEREDEEAAEEEEEAEEEEEEEEESAEEEEEEEEEEDERES 
4992 
4993 033614 004737 010434 JSR PC ,REWIND sCALL TAPE REWIND COMMAND 
4994 033620 103411 BCS 230$ ;BR, IF NO PROBLEM 
4995 033622 010004 MOV RO,R4 sSAVE PACKET ADDRESS 
4996 033624 016501 000000 MOV TSSRCRS),.R1 ;GET TSSR STATUS 
4997 033630 004737 020104 JSR PC ,FATCHK ;INC AND CHECK FOR MORE THAN 25 ERRORS 
5001 033634 ERRHRD ERRNO, TSORWN,PKTSSR ;REWIND NOT ACCEPTED 
033634 104456 TRAP CSERHRD 
033636 000330 «WORD 216 
033640 040130 «WORD TSORWN 
033642 011700 «WORD PKTSSR 
5002 033644 2303: CKLOOP ;LOOP IF SELECTED 
sees 033644 104406 TRAP CSCLP1 
5004 FREAK EAASARAAEEAERAEAR AREER ARAREEARAAEARARAREAREREEEEEELS 
5005 8 : 
4 ;GET EXTENDED STATUS REGISTER ZERO (XSTO) FROM MESSAGE BUFFER 
00 ; 
5008 FRARAAAEREREREAEERAEAEEEAEAEREAEAAKAARAKARERESAERERALALELE 
5009 
5010 033646 013701 036406 MOV T30BFR+6,R1 ;PICK UP XSTO 
5011 033652 010102 MOV R1,R2 ;SET UP EXPECTED 
5012 033654 052702 000002 BIS #BIT1,R2 ;SET BOT BIT IN EXPECTED 
5013 033660 020102 CMP R1,R2 ;DOES EXP = REC'D 
5014 033662 001406 BEQ 240$ 3BR, IF EQUAL (OK) 
5015 033664 004737 020104 JSR PC ,FATCHK sINC AND CHECK FOR MORE THAN 25 ERRORS 
5019 033670 ERRHRD ERRNO, T30B0T,EXPREC ;TAPE NOT AT BOT AFTER REWIND 
033670 104456 TRAP CSERHRD 
033672 000331 «WORD 217 
033674 037731 «WORD T30B0T 
033676 016350 .- WORD EXPREC 
5020 033700 240$: CKLOOP ;LOOP IF SELECTED 
033700 104406 TRAP CSCLP1 
5021 033702 005723 TST C(R3)+ sPOINT TO NEXT POSITION 
5022 033704 011301 MOV CR3),R1 ;GET NEXT COMMAND ETC. 
5023 033706 020127 177777 CMP R1,#177777 ;END OF TABLE MARKER 
5024 033712 001402 BEQ 330$ :BR, IF AT END OF TABLE 
5025 033714 000137 033202 JMP 182$ ;JUMP TO MORE COMMANDS TO DO 
5026 033720 330$: CKLOOP ;LOOP IF SELECTED 
033720 104406 TRAP CSCLP1L 
5027 033722 ENDSUB 3<<<<<<¢¢<¢¢¢¢ END SUBTEST >>>>>>>>>>> 
033722 L10044: 
033722 104403 TRAP CSESUB 
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5042 033724 
033724 
033724 

5043 033726 

5044 033732 

5045 033736 

5046 033742 

5047 033746 

5048 033754 

5049 033760 

5050 023762 
033762 
033766 
033770 
033774 
033776 
034902 
034004 
034010 

5051 034012 

5052 034016 

5053 034020 

5057 034024 

5058 034026 
034026 
034030 
034032 
034034 

5059 034036 


5061 034036 


5069 034042 
5070 034046 
5071 034050 
5075 034054 
5076 034056 

034056 


104402 
004737 
005037 
004737 
004737 
012737 
004737 
103426 


012727 


011666 


012704 


177772 
177756 
036546 
020104 


036360 


010332 
020104 
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036546 


3¢ 
y 
sTEST 2, SUBTEST 2 
: 
;VERIFIES THAT SKIP TAPE MARKS COMMANDS WITH A TAPE 
sMARK COUNT GREATER THAN 1 OPERATE PROPERLY. COUNTS 
;0F 2,3,8,64,256, AND 512 ARE TESTED. THE 
sTESTING SEQUENCE IS SIMILAR TO THAT USED IN SUBTEST 1. 
: 
H 
H 
g@ 
BGNSUB 3>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
T2.2: 
TRAP C$BSUB 
JSR PC, T30REST sSET COMMAND PACKET 
CLR T30FCN ;CLEAR FILE COUNTER 
JSR PC, T3ORT2 ;SET UP OTHER COMMAND PACKET 
JSR PC, T3ORT3S :SET UP OTHER COMMAND PACKET 
MOV #65000. , T3O0DLY ;SET UP DELAY COUNTER 
10$: JSR PC ,SOFINIT :D0 INITIALIZE ON CONTROLLER 
bcs 20$ :BR IF INIT WAS OK 
DELAY 250 sDELAY ROUTINE CALL 
MOV #250,(PC)+ 
-WORD 0 
MOV LSDLY,(PC)+ 
-WORD O 
DEC -6(PC) 
BNE .-4 
DEC -22(PC) 
BNE .-20 
DEC T3ODLY ;BUMP COUNTER 
BNE 10$ ;BR, IF MORE COUNTING TO DO 
JSR PC ,FATCHK sINC AND CHECK FOR MORE THAN 25 ERRORS 
MOV RO,R1L :CONTENTS OF TSSR REGISTER 


ERRDF ERRNO, SFIERR , SFIMSG sFATAL ERROR TSSR WAS NOT OK 
TRAP CSEROF 


-WORD 218 
-WORD SFIERR 
-WORD SFIMSG 


20%: 
MOV #T3OPACKET ,R4 ;SUBROUTINE NEEDS PACKET ADDRESS 
Pitt iti tt titi t tt ttt ttt tt ttt TTT TTT TTT TT TT TTT TTT TTT TTT TT 
F 
sISSUE WRITE CHARACTERISTICS COMMAND 


‘ 
SRERREEERAAEAEAAERAAERASAERAAREAKASERARAEAAEALASESEEEEEEEEEE 


JSR PC ,WRTCHR sISSUE WRITE CHARACTERISTICS 

BCS 23% ;BR, IF COMMAND ISSUED OK 

JSR PC ,FATCHK sINC AND CHECK FOR MORE THAN 25 ERRORS 
MOV RO,R sSAVE CONTENTS OF TSSR 

ERRHRD ERRNO, WRTMSG,SFIMSG sWRITE CHARACTERISTISC FAILED 


TRAP CSERHRD 


SEQ 0139 
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5085 034070 
5086 034074 
5087 034076 
5088 034100 
5089 034104 
5093 034110 
034110 
034112 
034114 
034116 
5094 034120 
024120 


5102 034122 
5103 034126 
5104 034130 
5105 034134 
034136 
5107 034140 
034144 
034144 
034146 
034150 
034152 
$5112 034154 

034154 
5113 034156 
034164 
034170 
5116 034176 


5124 034204 
034212 


013701 
010102 
052702 
020102 
001406 
004737 


104456 
000335 
037731 
016350 


104406 
012737 
012703 
013737 
012737 


012737 
012704 


010434 


000000 
020104 


036406 
000002 


020104 


000001 
000001 
003076 
000024 


140005 
036510 
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036544 


036512 
036516 


036510 


23%: CKLOOP 


sLOOP IF SELECTED 


FRERREEAAEESESAESEAEEEAEEEEEEAEEEEEEAEEEDEEEEEDEDEEEEERS EERE 


; 
sISSUE A REWIND TO TAPE DRIVE AND WAIT FOR SSR TO SET 


3 
FREER SE SEEEERESERAAESEAEEEEEEEEEEEEESESEEEESEEEEELEEE 


JSR PC ,REWIND 

BCS 30$ 

MOV RO,R4 

MOV TSSRCRS),R1 

JSR PC ,FATCHK 

ERRHRD ERRNO, TSORWN,PKTSSR 
30$: CKLOOP 


sCALL TAPE REWIND COMMAND 

3BR, IF NO PROBLEM 

sGET PACKET ADDRESS 

sGET STATUS REGISTER 

sINC AND CHECK FOR MORE THAN 25 
sREWIND NOT ACCEPTED 


;LOOP IF SELECTED 


SREREAEREAEREAEEAEEKEAEABESASAEEAKEEEEESKEEEEEEEEEEEEERERES 


;GET EXTENDED STATUS REGISTER ZERO (XSTO) FROM MESSAGE BUFFER 


; 
FRRAAAAEAEEERERESEAEAEAEEERESRAAKEEAEEEADEEEEEEEEESEEEEEE SE 


MOV T3OBFR+6,R1 
MOV R1,R2 
BIS #BIT1,R2 
CMP R1,R2 
BEQ 40$ 
JSR PC ,FATCHK 
ERRHRD ERRNO, TSOBOT ,EXPREC 
40$: CKLOOP 
MOV #1., T30FCN 
64$: MOV #1,R3 
65$: MOV FREE , T30WB 
MOV #20. ,T30SZ 


sPICK UP XSTO 

SET UP EXPECTED 

sSET BOT BIT IN EXPECTED 

sDOES EXP = REC'D 

sBR, IF EQUAL (OK) 

sINC AND CHECK FOR MORE THAN 25 
;TAPE NOT AT BOT AFTER —- 


sLOOP IF SELECTED 


TRAP 
sSeT “FILE” COUNTER AT 1 DECIMAL 
s;ONE RECORD PER “FILE” 

;SET UP PACKETS‘S WRITE BUFFER 
sSET RECORD SIZE AT 2000 BYTES 


ROR EEEEEEEEEEEEEEAEEEEEEEEEEEEEEEEEESEEEEEE 


; 
sWRITE DATA,ACK,CVC=1 COMMAND 
3 


ROR EEEEEEEEESE 


MOV 
MOV 


#140005, T3OPK3 
#T30PK3,R4 


sWRITE DATA,ACK,CVC=1 COMMAND 
sSET UP R4 WITH PACKET ADDRESS 


Ea SE ere cre he 


SEQ 0140 
219 
WRTMSG 
SFIMSG 


CSCLPi 


ERRORS 
CSERHRD 


CsCLP1 


ERRORS 


CSERHRD 
221 
T30B0T 
EXPREC 


CsCLP1 
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5126 
5127 
5128 


034216 
034222 
034224 


034306 
034314 
034320 
034324 
034330 
034334 
034340 
034342 
034344 
034350 
034350 
034352 
034354 
034356 
034360 
034360 
034362 
034366 
034374 





013702 
000302 
010301 


012737 
012704 
010465 
004737 
016501 
012702 
020102 
001406 
004737 


104456 
000337 
040252 
011700 


104406 
005237 
023727 
001273 





036544 


146642 
177776 
017124 
000000 
000200 


020104 


000021 


141011 
036510 
177776 
017124 
000000 
000200 


020104 


036544 
036544 
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MOV T3OFCN,R2 sGET FILE COUNTER 
SWAB R2 sMOVE TO UPPER BYTE 
MOV R3,R1 sGET RECORD COUNTER 
ADD R2,R1 sFILE COUNTER IN UPPER, RECORD @ LOW 
MOV R1, @FREE sMOV TO OUT PUT BUFFER 
MOV R4, TSOBCRS) sISSUE COMMAND 
JSR PC ,WAITF sWAIT FOR SSR TO SET 
MOV TSSRCRS),R1 sGET TSSR CONTENTS 
MOV @SSR ,R2 sSET UP EXPECTED 
CMP R1,R2 sARE THEY EQUAL 
BEQ 70$ sBR, IF OK 
JSR PC ,FATCHK sINC_AND CHECK FOR MORE THAN 25 ERRORS 
sSOFT ERROR, DON’T CARE ABOUT WRITE 
sCOMMAND’S RESULTS - CHECKING SKIP 
sTAPE MARK COMMAND 
ERRSOFT ERRNO, TSOWDD ,PKTSSR sTSSR INCORRECT AFTER WRITE DATA 
TRAP CSERSOFT 
-WORD 222 
-WORD T3OWDD 
-WORD PKTSSR 
70$: CKLOOP ;sLOOP IF SELECTED 
TRAP CsCLPi 
INC R3 sCOUNT THE RECORD COUNTER DOWN 
CMP R3, #21 sAT 20 YET 
BNE 65$ ;BR, IF NOT AT 20 RECORDS WRITTEN 
RPRERAEEEAEEEEEEE SEED EERE DEES DEES EE EEEEEEEEEEEEEEREEE DEES 
; 
sWRITE TAPE MARK,ACK,CVC=1 COMMAND 
; 
PUPP Orit rier rir rrr rirititiiitititititt ttt tty 
036510 MOV #141011, TSOPK3 sWRITE TAPE MARK,ACK,CVC=1 COMMAND 
MOV @T3OPK3,R4 sSET UP R4 WITH PACKET ADDRESS 
MOV R4, TSOBCRS) ISSUE COMMAND 
JSR PC ,WAITF sWAIT FOR SSR TO SET 
MOV TSSRCRS),R1 sPICK UP TSSR 
MOV @SSR ,R2 sSET UP EXPECTED (SSR ONLY) 
CMP R1,R2 sWAS STATUS GOOD 
BEQ 160$ ;BR, IF TERMINATION WAS GOOD 
JSR PC ,.FATCHK sINC AND CHECK FOR MORE THAN 25 ERRORS 
ERRHRD ERRNO, TSOWDC ,PKTSSR sTSSR NOT CORRECT AFTER WRT TAPE M. 
TRAP CSERHRD 
-WORD 223 
-WORD T3OWDC 
-WORD PKTSSR 
160$: CKLOOP sLOOP IF SELECTED 
TRAP CSsCLPi 
INC T3OF CN sCOUNT THE “FILE” COUNTER DOWN 
000031 CMP T30FCN, #25. sWRITE 25 FILES TO TAPE 
BNE 64$ sBR, IF NOT AT 25 FILES WRITTEN 


$3 O600464646046464646 64664 64664646646464606646646464604646446460646466464464640444088 


; 
sWRITE TAPE MARK,ACK,CVC=1 COMMAND 


3 
FRSRHAEAEEEEESASEHASSEAEESEAEEALEEREEERADEEEEEEEEEEEEEEEEEE 





SEQ 0141 





CZTKHB TK-25 FRT END FUNC 04 





TEST 2: SKIP TAPE MARKS 


oo 


5179 

5180 034376 
5181 034404 
5182 034410 
5183 034414 
5184 034420 
5185 034424 


0 
034502 
034502 


034504 
034510 
034512 
034516 
034520 
034522 
034526 
034526 
034530 
034532 
034534 
034536 
034536 
034540 


012737 
012704 
010465 
004737 
016501 
012702 
020102 
001406 
004737 
104456 
000340 
040252 
011700 


104406 


004737 


013701 


104406 
012737 


141011 036510 
036510 


010434 


000000 
020104 


036406 
000002 


020104 


000002 036544 


165$: 


JSR 


ERRHRD ERRNO, TSOWDC ,PKTSSR 


CKLOOP 


#141011, TS0PK3 
30PK3,R4 


@SSR ,R2 


PC ,FATCHK 
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SEQ 0142 


sWRITE TAPE MARK,ACK,CVC=1 COMMAND 


sSET UP R4 WITH PACKET ADDRESS 
sISSUE COMMAND 

sWAIT FOR SSR TO SET 

sPICK UP TSSR 

sSET UP EXPECTED (SSR ONLY) 
sWAS STATUS GOOD 

sBR, IF TERMINATION WAS GOOD 


FREES SEAEESEEEEEESEESEAEEESEEEEEEEREEEEDEEEEEEEEEEEEEEEEES 


; 
sISSUE A REWIND TO TAPE DRIVE AND WAIT FOR SSR TO SET 


‘ 
sSREEREEEEEEEEEEEEESESEEEEEES ES 444446446646 404464464464464444046884 


170$: 


JSR 


ERRHRD ERRNO, TSORWN,PKTSSR 


CKLOOP 


PC ,REWIND 
170$ 

RO,R4 
TSSRCRS),R1 
PC ,FATCHK 


SERRE EEEEESES OEE EEESEOEEEEEEEE4EEEEEKESEEEESEEEESEREKEEEEEE 


; 
sGET EXTENDED STATUS REGISTER ZERO (XSTO) FROM MESSAGE BUFFER 


; 
SHER EEEEEEEEEE EE OEEEEEEEEEES EAE OS4OEEEEEOEEEEEEEEEDEERES 


1808: 


CKLOOP 
MOV 


T3OBFR+6,R1 


PC ,FATCHK 
ERRNO, T30B0T ,E 


#2, TSOFCN 





sINC AND CHECK FOR MORE THAN 25 ERRORS 
sTSSR NOT CORRECT AFTER WRT TAPE M. 
TRAP CSERHRD 
-WORD 224 
-WORD T3OWDC 
-WORD PKTSSR 
sLOOP IF SELECTED 
TRAP CsCLPi 
sCALL TAPE REWIND COMMAND 
sBR, IF NO PROBLEM 
sGET PACKET ADORESS 
sGET STATUS REGISTER 
sINC AND CHECK FOR MORE THAN 25 ERRORS 
sREWIND NOT ACCEPTED 
TRAP CSERHRD 
-WORD 225 
-WORD T3ORWN 
-WORD PKTSSR 
sLOOP IF SELECTED 
TRAP CSCLP1 
sPICK UP XSTO 
sSET UP EXPECTED 
sSET BOT BIT IN EXPECTED 
sDOES EXP = REC'D 
sBR, IF EQUAL (OK) 
sINC AND CHECK FOR MORE THAN 25 ERRORS 
XPREC sTAPE NOT AT BOT AFTER REWIND 
TRAP CSERHRD 
-WORD 226 
-WORD T3OBOT 
; -WORD EXPREC 
sLOOP IF SELECTED 
RAP CsCLP1 


T 
sSET TO NUMBER OF SKIP “FILES” 
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5230 034546 
523 


pao 


1 
5232 
5233 


034552 
034556 


034562 
034566 
034570 
034574 
034576 
034576 
034600 
034602 
034604 
034606 
034606 


012703 


011337 
012704 


004737 
103407 
004737 
010001 


104456 
000343 
004760 
011666 


104406 


012737 
013737 
012704 
010465 
012737 
004737 
016501 
032701 
001017 


012727 


036526 


036376 
036360 


010332 
020104 


141010 


002116 
177772 
177756 
036546 
000200 


020104 
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MOV @TSOIMV,RS sSET UP POINTER TO COMMAND TABLE 
182$: MOV (R3), TSO0ETM sGET NEXT COMMAND 
MOV @TSOPACKET ,R4 sSUBROUTINE NEEDS PACKET ADDRESS 
i PORE EREEEE ODES ESS EDD ESOS OEE OS 2408080804 00000000 000008 
; 
sISSUE WRITE CHARACTERISTICS COMMAND 
; 
jRORSREEEEES EE ES SESS EEES ESOS OEOS ESOS SOS 0408 000000000008 
JSR PC ,WRTCHR sISSUE WRITE CHARACTERISTICS 
BCS 188$ sBR, IF COMMAND ISSUED OK 
JSR PC ,FATCHK sINC AND CHECK FOR MORE THAN 25 ERRORS 
MOV RO,R1 sSAVE CONTENTS OF TSSR 
ERRHRD ERRNO, WRTMSG ,SFIMSG sWRITE CHARACTERISTISC FAILED 
TRAP CSERHRD 
-WORD 227 
-WORD WRTMSG 
-WORD SFIMSG 
188$: CKLOOP sLOOP IF SELECTED 
TRAP CSsCLPi 
SPORES EEEEEEEEEEEES SEED EOD EELS ESOS ESOS OOEEEEEEEEEE REED 
; 
sSKIP TAPE MARK,ACK,CVC=1 COMMAND 
; 
ECPI E LP TTT Piper rrr rir iti tt tt TTT TT 
036510 MOV #141010, T30PK3 sSKIP TAPE MARK,ACK,CVC=1 COMMAND 
036512 MOV T30F CN, TSORB sSET UP NUMBER TO SKIP 
MOV @TSOPK3,R4 sSET UP R4 WITH PACKET ADDRESS 
189$: MOV R4, TSDBCRS) sISSUE COMMAND 
036546 MOV #65000. , TSODLY sSET UP DELAY COUNTER 
190$: JSR PC ,WAITF sWAIT FOR SSR TO SET 
MOV TSSRCRS),R1 sPICK UP TSSR 
BIT @SSR,R1 sIS SSR SET YET 
BNE 191% sBR, IF SSR IS SET 
DELAY 250 sCALL DELAY ROUTINE 
MOV #250 ,(PC)+ 
-WORD 0 
MOV LSDLY,(PC)+ 
-WORD 0 
DEC -6(PC) 
BNE 7-4 
DEC -22(PC) 
BNE --20 
DEC T3ODLY sBUMP DELAY ROUTINE 
BNE 1908 sBR, IF MORE DELAY TO GO 
1918: MOV @SSR ,R2 sSET UP EXPECTED (SSR ONLY) 
CMP R1,R2 sWAS STATUS GOOD 
BEQ 1928 sBR, IF TERMINATION WAS GOOD 
JSR PC .FATCHK sINC AND CHECK FOR MORE THAN 25 ERRORS 


ERRHRD ERRNO, T3OSKM,PKTSSR 


sTSSR NOT CORRECT AFTER SKIP TAPE Mm. 


TRAP CSERHRD 
-WORD 228 
-WORD T3OSKM 


SEQ 0143 
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TEST 2: SKIP TAPE MARKS SEQ 0144 

034740 011700 -WORD PKTSSR 

5277 034742 1928: CKLOOP ;LOOP IF SELECTED 

neve 034742 104406 TRAP CSCLP1 

5279 $000 0606600600000000000000000600008 600000 0000600008 60000088 

5280 ; : 

coos ;GET EXTENDED STATUS REGISTER ZERO (XSTO) FROM MESSAGE BUFFER 

$ 

5283 $O06060060600060060000000006060600006000000000060000000008 

5284 

5285 034744 013701 036406 MOV T30BFR+6,R1 . sPICK UP XSTO 

5286 034750 010102 MOV R1,R2 sSET UP EXPECTED 

5287 034752 052702 100000 BIS #BIT15,R2 sSET TMK BIT IN EXPECTED 

5288 034756 0201C2 CMP R1,R2 sD0ES EXP = REC'D 

5289 034760 001406 BEQ 1958 3BR, IF EQUAL (OK) 

5290 034762 004737 020104 JSR PC ,FATCHK sINC AND CHECK FOR MORE THAN 25 ERRORS 

5294 034766 ERRHRD ERRNO, TSOTMK ,EXPREC sTMK NOT SET AFTER WRT TAPE MARK 
034766 104456 TRAP CSERHRD 
034770 000345 WORD 229 
034772 040404 WORD T3OTMK 
034774 016350 WORD EXPREC 

5295 034776 195%: CKLOOP ;LOOP IF SELECTED 
034776 104406 TRAP CSCLP1 

5296 025000 012700 177777 MOV 9177777,R0 sVALUE TO WRITTEN TO MEMORY 

5297 025004 004737 020376 JSR PC ,.FILLMEM sFILL MEM WITH ALL ONES 

yas 035010 013737 003076 036512 MOV FREE , T30RB8 sSTARTING READ BUFFER ADDRESS 

5300 $0066000000604606006000606 6666 64000000060660806000600000000088 

5301 F 

pe | sREAD FORWARD, ACK,CVC=1 COMMAND 

3 

5304 $0 0660060006 046004040006 000606600006 0000065000000008 0000408 

5305 

5306 035016 012737 140001 036510 MOV #140001, T30PK3 sREAD FORWARD, ACK,CVC=1 COMMAND 

5307 035024 012704 036510 MOV @T30PK3,R4 ;SET UP R4 WITH PACKET ADDRESS 

5308 035030 012737 000024 036516 MOV #20. ,T30SZ ;SET UP RECORD SIZE IN PACKET 

5309 035036 010465 177776 MOV R4,TSDBCRS) sISSUE COMMAND 

5310 035042 004737 017124 JSR PC ,WAITF sWAIT FOR SSR TO SET 

5311 035046 016501 000000 MOV TSSRCRS),R1 ;GET TSSR CONTENTS 

5312 035052 012702 000200 MOV @SSR ,R2 sSET UP EXPECTED 

5313 035056 020102 CMP R1,R2 ;ARE THEY EQUAL 

5314 035060 001406 BEQ 2003 ;BR, IF OK 

5315 035062 004737 020104 JSR PC ,FATCHK sINC AND CHECK FOR MORE THAN 25 ERRORS 

5319 035066 ERRHRD ERRNO, T3ORDF ,PKTSSR :TSSR INCORRECT AFTER WRITE DATA 
035066 104456 TRAP CSERHRD 
035070 000346 WORD 230 
035072 037303 WORD T3ORDOF 
035074 011700 - WORD PKTSSR 

5320 035076 200$: CKLOOP ;LOOP IF SELECTED 
035076 104406 TRAP CSCLP1 

5321 035100 017701 145772 MOV OFREE,R1 sFIRST LOC IN READ GUFFER 

5322 035104 012702 177777 MOV $177777,R2 sEXPECTED IF NO DATA TRANS. 

5323 035110 020102 CMP R1,R2 ;DID ANY DATA GET TRANSFERRED 

5324 035112 001006 BNE 220$ ;BR, IF NO DATA TRANS (GOOD) 

5325 035114 004737 020104 JSR PC .FATCHK ;INC AND CHECK FOR MORE THAN 25 ERRORS 

5329 035120 ERRHRD ERRNO, T3ODTR,EXPREC ;DATA TRANSFERRED ON READ TAPE MARK 
035120 104456 TRAP CSERHRD 
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TEST 2: SKIP TAPE MARKS SEQ 0145 
035122 000347 «WORD 231 
035124 040760 «WORD T3ODTR 
035126 016350 «WORD EXPREC 

5330 035130 2208: CKLOOP LOOP IF SELECTED 
035130 104406 TRAP CSCLP1 

5331 035132 013702 036544 MOV T3OFCN,R2 sGET NUMBER OF SKIPS 

5332 035136 005202 INC R2 sSET TO CORRECT FILE VALUE 

5333 035140 000302 SWAB R2 sSWAP BYTE HALVES 

5334 035142 052702 000001 BIS *BITO,R2 sSET FOR RECORD 41 

5335 035146 017701 145724 MOV OFREE.R1 sGET INFO FROM BUFFER 

5336 035152 020201 cmp R2,R1 sARE THEY EQUAL 

5337 035154 001406 BEQ 2288 7BR, IF EQUAL (OK) 

5338 035156 004737 020104 JSR PC .FATCHK sINC AND CHECK FOR MORE THAN 25 ERRORS 

5342 035162 ERRHRD ERRNO, TSOPTB,EXPREC sRECORD POSITION WAS NOT CORRECT 
035162 104456 TRAP CSERHRD 
035164 000350 «WORD 232 
055166 037132 -WORD T3OPTB 
035170 016350 «WORD EXPREC 

5343 035172 228%: CKLOOP ;LOOP IF SELECTED 

a 035172 104406 TRAP CSCLP1 

5345 OCTET E TET Tri i tit itititiititiititititititi tt} 

5346 3 

Pes sISSUE A REWIND TO TAPE DRIVE AND WAIT FOR SSR TO SET 

348 FY 

5349 $0 60660666600666 0666060606606 06 46660640064666466646660662006064006460006608 

5350 

5351 035174 004737 010434 JSR PC ,REWIND s;CALL TAPE REWIND COMMAND 

5352 035200 103411 BcS 230$ ;BR, IF NO PROBLEM 

5353 035202 010004 MOV RO,R4 ;SAVE PACKET ADDRESS 

5354 035204 016501 000000 MOV TSSRCRS),R1 ;GET TSSR STATUS 

5355 035210 004737 020104 JSR PC ,FATCHK sINC AND CHECK FOR MORE THAN 25 ERRORS 

5359 035214 ERRHRD ERRNO, TSORWN,PKTSSR sREWIND NOT ACCEPTED 
035214 104456 TRAP CSERHRD 
035216 000351 «WORD 233 
035220 040130 -WORD T3ORWN 
035222 011700 «WORD PKTSSR 

5360 035224 2308: CKLOOP ;LOOP IF SELECTED 

—_ 035224 104406 TRAP CsCLP1 

1 

5362 $066 06606606466 666666 660464664046064664606446 6006406006646 666464600648 

5363 3 

tae sGET EXTENDED STATUS REGISTER ZERO (XSTO) FROM MESSAGE BUFFER 

36 3 

5366 FORREKAKESSAAEEEEKESAEAEEEEAEEEEEEESEEEEAEEESEESEREEEEEEDE 

5367 

5368 035226 013701 036406 MOV T3OBFR+6,R1 ;PICK UP XSTO 

5369 035232 010102 MOV R1,R2 ;SET UP EXPECTED 

5370 035234 052702 000002 BIS oBIT1,R2 ;SET BOT BIT IN EXPECTED 

5371 035240 020102 cmp R1,R2 sDOES EXP = REC’‘D 

5372 035242 001406 BEQ 2408 3BR, IF EQUAL (OK) 

5373 035244 004737 020104 JSR PC .FATCHK sINC AND CHECK FOR MORE THAN 25 ERRORS 

5377 035250 ERRHRD ERRNO, TSOBOT,EXPREC ;TAPE NOT AT BOT AFTER REWIND 
035250 104456 TRAP CSERHRD 
035252 000352 «WORD 234 
035254 037731 -WORD T30B0T 
035256 016350 «WORD EXPREC 
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5378 035260 

035260 
5379 035262 
5380 035264 
5381 035266 
5382 035272 
5383 035274 
5384 035300 
5385 035302 
5386 035304 
5387 035310 
5388 035314 

035314 
5389 035316 

035316 

035316 
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SEQ 0146 


2408: CKLOOP sLOOP IF SELECTED 
TRAP CSCLP1 
TST CR3)+ sPOINT TO NEXT POSITION 
MOV C(R3) 1 sGET NEXT COMMAND ETC. 
177777 CMP R1,0177777 sEND OF TABLE MARKER 
BEQ 3308 3BR, IF AT END OF TABLE 
036544 MOV T3OFCN,R1 ;GET NUMBER OF SKIPS 
cLC ;CLEAR THE CARRY BIT 
ROL R1 ;PUSH OVER ONE POSITION 
036544 MOV R1,T30FCN ;PUT BACK IN COUNTER 
034552 JMP 182$ + JUMP TO MORE COMMANDS TO DO 
3308: CKLOOP ;LOOP IF SELECTED 
TRAP CSCLPi 
ENDSUB 3<<<<e¢C Ce <C* END SUBTEST >>> >> >>> >>> 
L10045: 


TRAP CsESUB 
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TEST 2: SKIP TAPE MARKS SEQ 0147 

5391 s¢ 

5392 $ 

5393 sTEST 2, SUBTEST 3 

5394 8 

5395 3 

53% sVERIFIES THAT A SKIP TAPE MARKS REVERSE COMMAND 

5397 sISSUVED WHILE THE TAPE IS POSITIONED AT BOT CAUSES 

5398 sFUNCTION REJECT TERMINATION, WITH THE NON-EXECUTABLE 

5399 sFUNCTION (NEF) ERROR BIT SET. 

5400 3 

5401 ; 

5402 F 

5403 $ 

5404 H 

5405 s- 

5406 035320 BGNSUB 3>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>> >> 
035320 T2.3: 
035320 104402 TRAP C$BSUB 

5407 035322 004737 041142 JSR PC, T3OREST sSET COMMAND PACKET 

5408 035326 005037 036544 CLR T3OF CN ;CLEAR FILE COUNTER 

5409 035332 004737 041234 JSR PC, T3ORT2 ;SET UP OTHER COMMAND PACKET 

5410 035336 004737 041276 JSR PC, T3ORTS ;SET UP OTHER COMMAND PACKET 

5411 035342 012737 176750 036546 MOV #65000. , T3ODLY ;SET UP DELAY COUNTER 

5412 025350 004737 016650 10$: JSR PC ,SOF INIT 300 INITIALIZE ON CONTROLLER 

5413 035354 103426 BCS 20$ ;BR IF INIT WAS OK 

5414 035356 DELAY 250 sDELAY ROUTINE CALL 
035356 012727 000250 MOV #250 ,(PC)+ 
035362 000000 -WORD 0 
035364 013727 002116 MOV LS$DLY,(PC)+ 
035370 000000 -WORD 0 
035372 005367 177772 DEC -6(PC) 
035376 001375 BNE .-4 
035400 005367 177756 DEC -22(PC) 
035404 001367 BNE .-20 

5415 035406 065337 036546 DEC T3ODLY ;BUMP COUNTER 

5416 035412 001356 BNE 10$ ;BR, IF MORE COUNTING TO DO 

5417 035414 004737 020104 JSR PC ,FATCHK sINC AND CHECK FOR MORE THAN 25 ERRORS 

5421 035420 010001 MOV RO,R1 ;CONTENTS OF TSSR REGISTER 

5422 035422 ERRDF ERRNO, SFIERR , SFIMSG sFATAL ERROR TSSR WAS NOT OK 
035422 104455 TRAP CSERDF 
035424 000353 «WORD 235 
035426 003554 - WORD SFIERR 
035430 011666 «WORD SFIMSG 

ey 035432 20$: 

4 

meas 035432 012704 036360 MOV #T3OPACKET ,R4 ;SUBROUTINE NEEDS PACKET ADDRESS 

426 

5427 Perret errr eter i iti titi ttt ttt tt tt ttt ttt ttt ttt ttt ttt tt Tt ttt 

5428 3 

thy ;ISSUE WRITE CHARACTERISTICS COMMAND 

430 ‘ 

5431 PTT eter ere re retiree ttt titi tt i ttt ttt ttt ti ttttt tT ttt ttttt 

5432 

5433 035436 004737 010332 JSR PC ,WRTCHR ;ISSUE WRITE CHARACTERISTICS 

5434 035442 103407 BCS 23$ ;BR, IF COMMAND ISSUED OK 

5435 035444 004737 020104 JSR PC ,FATCHK sINC AND CHECK FOR MORE THAN 25 ERRORS 

5439 035450 010001 MOV RO,R1 ;SAVE CONTENTS OF TSSR 
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TEST 2: SKIP TAPE MARKS SEQ 0148 
5440 035452 ERRHRD ERRNO,WRTMSG,SFIMSG sWRITE CHARACTERISTISC FAILED 
035452 104456 TRAP CSERHRD 
035454 000354 «WORD 236 
035456 004760 «WORD WRTMSG 
035460 011666 «WORD SFIMSG 
5441 035462 238: CKLOOP sLOOP IF SELECTED 
once 035462 104406 TRAP CSCLP1 
5443 FRSSAARSEAAREARASEAEEEAAAREKEAARSSEAARAASESSEEALEAERALALELEA 
5444 3 
reas ;ISSUE A REWIND TO TAPE DRIVE AND WAIT FOR SSR TO SET 
6 
5447 s euamndeennssnedenshasonenansansabneanennsennntennneanennn 
5448 
5449 035464 004737 010434 JSR PC ,REWIND ;CALL TAPE REWIND COMMAND 
5450 035470 103411 BCS 30$ ;BR, IF NO PROBLEM 
5451 035472 010004 MOV RO,R4 ;GET PACKET ADDRESS 
5452 035474 016501 000000 MOV TSSRCRS),R1 ;GET STATUS REGISTER 
5453 035500 004737 020104 JSR PC ,FATCHK sINC AND CHECK FOR MORE THAN 25 ERRORS 
5457 035504 ERRHRD ERRNO, TSORWN,PKTSSR sREWIND NOT ACCEPTED 
035504 104456 TRAP CSERHRD 
035506 000355 «WORD 237 
035510 040130 «WORD T3ORWN 
025512 011700 «WORD PKTSSR 
5458 035514 30$: CKLOOP ;LOOP IF SELECTED 
seme 035514 104406 TRAP CSCLP1 
5460 ‘ FSRAAREEEAERAKAEARARAASREASAAEEEEEAEAKEAAEAEAKALEREEALRESEEBEEE 
5461 3 
pe | ;GET EXTENDED STATUS REGISTER ZERO (XSTO) FROM MESSAGE BUFFER 
46 F 
5464 RAREAREAAAS LERRAAEEAAREAESEEEEAAKEREAESEESEEEEEEEEAEEEELEEES 
5465 
5466 035516 013701 036406 MOV T30BFR+6,R1 ;PICK UP XSTO 
5467 035522 010102 MOV R1,R2 ;SET UP EXPECTED 
5468 035524 052702 000002 BIS #BIT1,R2 ;SET BOT BIT IN EXPECTED 
5469 035530 020102 CMP R1,R2 ;DOES EXP = REC'D 
5470 035532 001406 BEQ 40$ ;BR, IF EQUAL (OK) 
5471 035534 004737 020104 JSR PC ,FATCHK sINC AND CHECK FOR MORE THAN 25 ERRORS 
5475 035540 ERRHRD ERRNO, T3OBOT,EXPREC ;TAPE NOT AT BOT AFTER REWIND 
035540 104456 TRAP CSERHRD 
035542 000356 -WORD 238 
035544 037731 -WORD T30OBOT 
035546 016350 «WORD EXPREC 
5476 035550 40$: CKLOOP ;LOOP IF SELECTED 
035550 104406 TRAP CSCLPL 
ota 035552 012737 000001 036512 MOV #1,T30WB ;SET # OF T TO SKIP 
478 
5479 ‘ eee 
5480 
coos :SKIP TAPE MARK REVERSE,ACK,CVC=1 COMMAND 
482 
5483 sciadhdaeebabapiacieiicaeiaadihanaiataariaiia aah tala itin liens 
5484 
5485 035560 012737 141410 036510 MOV #141410, TSOPK3 ;SKIP TAPE MARK REVERSE,ACK,CVC=1 CMD 
5486 035566 012704 036510 MOV #T3OPK3,R4 ;SET UP R4& WITH PACKET ADDRESS 
5487 035572 010465 177776 MOV R4, TSDBCRS) ;ISSUE COMMAND 





re eg ee ean 


OO eo mr cS SE | 
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TEST 2: SKIP TAPE MARKS SEQ .0149 

5488 035576 004737 017124 JSR PC ,WAITF sWAIT FOR SSR TO SET 

5489 035602 016501 000000 MOV TSSRCRS),R1 :GET TSSR CONTENTS 

5490 035606 012702 100206 MOV #SSR!ISC!BITL!IBIT2,R2 sSET UP EXPECTED 

5491 035612 020102 CMP R1,R2 sARE THEY EQUAL 

5492 035614 001406 BEQ 70$ ;BR, IF OK 

5493 035616 004737 020104 JSR PC ,FATCHK sINC AND CHECK FOR MORE THAN 25 ERRORS 

5497 035622 ERRHRD ERRNO, T30IBT,PKTSSR sTSSR INCORRECT AFTER WRITE DATA 
035622 104456 TRAP CSERHRD 
035624 000357 WORD 239 
035626 036721 WORD T3OIBT 
035630 011700 WORD PKTSSR 

5498 035632 70$: CKLOOP ;LOOP IF SELECTED 

a 035632 104406 TRAP CSCLP1 

5500 Peter Torri iit rit titi ttt ttt Tt TTT TTT TTT TTT TTT TTT TTT TTT 

5501 8 

te | sGET EXTENDED STATUS REGISTER ZERO (XSTO) FROM MESSAGE BUFFER 

; 

5504 fRRREREEEARAAAEARAEAREAAREAEAEARAEAEREEARARERRRERSEAEREERE LE 

5505 

5506 035634 013701 036406 MOV T30BFR+6,R1 ;PICK UP XSTO 

5507 035640 010102 MOV R1,R2 ;SET UP EXPECTED 

5508 035642 052702 002000 BIS #B1IT10,R2 ;SET NEF BIT IN EXPECTED 

5509 025646 020102 CMP R1i,R2 ;DOES EXP = REC'D 

5510 035650 001406 BEQ 180$ ;BR, IF EQUAL (OK) 

5511 035652 004737 020104 JSR PC ,FATCHK sINC AND CHECK FOR MORE THAN 25 ERRORS 

5515 035656 ERRHRD ERRNO, TSONEF ,EXPREC ;TAPE NOT AT NEF 
035656 104456 TRAP CSERHRD 
035660 000360 -WORD 240 
035662 040466 «WORD T3ONEF 
035664 016350 -WORD EXPREC 

5516 035666 180$: CKLOOP ;LOOP IF SELECTED 
035666 104406 TRAP CSCLPiL 

5517 035670 ENDSUB 3<<<<€<¢¢<¢¢¢¢ END SUBTEST >>>>>>>>>>> 
035670 L10046: 
035670 104403 TRAP CsESUB 











CZTKHB TK-25 FRT END FUNC 04 MACRO YOS.02 Tuesday 25-Jun-85 10:28 Page 95 


















TEST 2: SKIP TAPE MARKS SEQ 0150 

5519 3+ 

5520 3 

5521 sTEST 2, SUBTEST 4 

5522 3 

5523 3 

5524 ;VERIFIES THAT A SKIP TAPE MARKS REVERSE COMMAND 

5525 sISSUVED WHILE THE TAPE IS POSITIONED JUST BEFORE THE 

5526 sFIRST RECORD ON ON TAPE (BUT NOT AT BOT) CAUSES TAPE 

5527 sSTATUS ALERT TERMINATION, WITH THE REVERSE INTO BOT 

5528 ;(RIB) STATUS BIT SET. 

5529 H 

5530 8 

5531 3 

5532 3 

5533 3 

5534 3° 

5535 035672 BGNSUB 3>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
035672 T2.4: 
035672 104402 TRAP C$BSUB 

5536 035674 004737 041142 JSR PC, T3ZOREST sSET COMMAND PACKET 

5537 035700 005037 036544 CLR T30FCN ;CLEAR FILE COUNTER 

5538 035704 004737 041234 JSR PC, T3ORT2 ;SET UP OTHER COMMAND PACKET 

5539 035710 004737 041276 JSR PC, T3ORTS ;SET UP OTHER COMMAND PACKET 

5540 025714 012737 176750 036546 MOV #65000. , TSODLY ;SET UP DELAY COUNTER 

5541 035722 004737 016650 10$: JSR PC ,SOFINIT 300 INITIALIZE ON CONTROLLER 

5542 035726 103426 bcs 20$ ;BR IF INIT WAS OK 

5543 035730 DELAY 250 ;DELAY ROUTINE CALL 
035730 012727 000250 MOV #250, CPC )+ 
035734 000060 -WORD O 
035736 013727 002116 MOV LS$DLY,(PC)+ 
035742 000000 -WORD 0O 
035744 005367 177772 DEC -6(PC) 
035750 001375 BNE .-4 
035752 005367 177756 DEC -22(PC) 
035756 001367 BNE .-20 

5544 035760 005337 036546 DEC T3ODLY ;BUMP COUNTER 

5545 035764 001356 BNE 10$ :BR, IF MORE COUNTING TO DO 

5546 035766 004737 020104 JSR PC ,FATCHK sINC AND CHECK FOR MORE THAN 25 ERRORS 

5550 035772 010001 MOV RO,R1 ;CONTENTS OF TSSR REGISTER 

5551 035774 ERRDF  ERRNO,SFIERR,SFIMSG sFATAL ERROR TSSR WAS NOT OK 
035774 104455 TRAP CSERDF 
035776 000361 -WORD 241 
036000 003554 -WORD SFIERR 
036002 011666 -WORD SFIMSG 

ate] 036004 20$: 

coe 036004 012704 036360 MOV #T3OPACKET ,R4 ;SUBROUTINE NEEDS PACKET ADDRESS 

55 

5556 Pettitt ttt ttt ttt TT TTT TTT TTT TTT TTT TTT TTT TT TT TTT TTT TTT TTT 

5557 : 

oe sISSUE WRITE CHARACTERISTICS COMMAND 

5560 Pitti tt ttt ttt tt ttt tT TTT TT TT TTT TT TT TT TT TTT TTT TTT TTT TT TTT 

5561 

5562 036010 004737 010332 JSR PC,WRTCHR sISSUE WRITE CHARACTERISTICS 

5563 036014 103407 BCS 23$ ;BR, IF COMMAND ISSUED OK 

5564 036016 004737 020104 JSR PC ,FATCHK sINC AND CHECK FOR MORE THAN 25 ERRORS 
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5568 036022 
5569 036024 
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5604 


5605 


5606 
5607 
5608 
5609 
5610 
5611 
5612 
5613 
5614 
5615 


036024 
036026 
036030 
036032 
036034 
036034 


036070 
036074 
036076 
036102 
036104 
036106 
036112 
036112 
036114 
036116 
036120 
036122 
036122 
036124 
036132 


036140 


004737 
103411 
010004 
016501 
004737 


104456 
000363 
040130 
011700 


104406 


013701 


037731 
016350 


104406 


013737 
012737 


012737 


010434 


000000 
020104 


036406 
000002 


020104 


003976 
000400 


140005 


MOV RO,R1 sSAVE CONTENTS OF TSSR 
ERRHRD ERRNO, WRTMSG,SFIMSG sWRITE CHARACTERISTISC — 
- WORD 
-WORD 
-WORD 
e7$: CKLOOP ;sLOOP IF SELECTED 
TRAP 


FRERAAEEEAEEREEEREAESEAEEEARAESAASEARERASEREARALALELALLELES 


; ISSUE A REWIND TO TAPE DRIVE AND WAIT FOR SSR TO SET 
; 


FRERREAAEEREAEREAEEAERAEAEEAAERAAERAAAEAEERAESEAKESRAEAELELELE 


JSR PC ,REWIND sCALL TAPE REWIND COMMAND 

BCS 30$ :BR, IF NO PROBLEM 

MOV RO,R4 sGET PACKET ADDRESS 

MOV TSSRCRS) RL sGET STATUS REGISTER 

JSR PC ,FATCHK sINC AND CHECK FOR MORE THAN 25 

ERRHRD ERRNO, TSORWN,PKTSSR sREWIND NOT ACCEPTED a 
- WORD 
«WORD 
- WORD 

30$: CKLOOP ;LOOP IF SELECTED 

TRAP 


RRAAREAAEEAERAEREAAEEEAARARARAARERERAAAAEAAAAREARKEEEEEEES 


; 
;GET EXTENDED STATUS REGISTER ZERO (XSTO) FROM MESSAGE BUFFER 


3 
SRRRAEREAAEEAAAEEAEERAAERERERARAAARERAREAAARRAAEAAAEASERELE 


MOV T3OBFR+6,R1 sPICK UP XSTO 
MOV R1,R2 SET UP EXPECTED 
BIS #BIT1,R2 SET BOT BIT IN EXPECTED 
CMP R1,R2 sDOES EXP = REC'D 
BEQ 40$ sBR, IF EQUAL (OK) 
JSR PC ,FATCHK sINC AND CHECK FOR MORE THAN 25 
ERRHRD ERRNO, T3OBOT ,EXPREC ;TAPE NOT AT BOT AFTER Te 
-WORD 
- WORD 
-WORD 
40$: CKLOOP ;LOOP IF SELECTED a 
036512 MOV FREE, T3OWB sSET UP GOOD WRITE BUFFER 
036516 MOV #256. ,1T30SZ SET UP SIZE 


SRERRAERERAAEREAKEAEEREAKEAARAAARAEAKRKAAKRALARALESALERELE ES 


;WRITE DATA, ACK,CVC=1 COMMAND 


; 
SRERREAKEEAKEREAEEEEAEREEEAEARAEEAAEAEAKAKARARRAKERALEREALE 


036510 


MOV 


#140005, T3OPK3 


sWRITE DATA,ACK,CVC=1 COMMAND 


SEQ 0151 


CSERHRD 
242 

WRTMSG 
SF IMSG 


CSCLPi 


ERRORS 


CSERHRD 
243 
T30ORWN 
PKTSSR 


CSCLP1 


ERRORS 


CSERHRD 
244 
T30B0T 
EXPREC 


CSCLP1 
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5616 036146 
5617 036152 


036176 


036202 
036202 
036204 
036206 
036210 
036212 
036212 


036214 
036222 
036230 
036234 
036240 
036244 
036250 
036254 
036256 
036260 
036264 
036264 
036266 
036270 
036272 
036274 
036274 


036276 
036302 
036304 
036310 
036312 
036314 
036320 
036320 


012704 
010465 
004737 
016501 
012702 
020102 
001406 
004737 


104457 
000365 
037060 
011700 


104406 


012737 
012737 
012704 
010465 
004737 
016501 
012702 
020102 
001406 
004737 


104456 
000366 
036550 
011700 


104406 


013701 
010102 
052702 
020102 
001406 
004737 


104456 


036510 


036414 
000001 


020104 
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036512 
036510 


MOV @T3OPK3,R4 sSET UP R4 WITH PACKET ADDRESS 
MOV R4, TSDBCRS) sISSUE COMMAND 

JSR PC ,WALTF sWAIT FOR SSR TO SET 

MOV TSSRCRS).R1 sGET TSSR CONTENTS 

MOV @#SSR ,R2 sSET UP EXPECTED 

CMP R1,R2 sARE THEY EQUAL 

BEQ 70$ ;BR, IF OK 

JSR PC ,FATCHK sINC AND CHECK FOR MORE THAN 25 


sSOFT ERROR, DON’T CARE ABOUT WR 
sCOMMAND‘’S RESULTS - CHECKING SK 
sTAPE MARK COMMAND 

sTSSR INCORRECT AFTER ee 


. WORD 
. WORD 
. WORD 


TRAP 


ERRSOFT ERRNO, TSOWDD ,PKTSSR 


708: CKLOOP ;sLOOP IF SELECTED 


FRRRAAEEAEAAEEERAEEAERARERAEEARAERARREAEREREREEEEEEEREEEEES 


; 
sSKIP TAPE MARK REVERSE,ACK,CVC=1 COMMAND 


: 
sREREAAAREEEREEASEAERRAARRAAAASERAAAREEEARESEE EE EESEES EEE 


MOV #1, T3OWB ;# OF TM TO SKIP 
MOV #141410, T3OPK3 sSKIP TAPE MARK REVERSE,ACK,CVC= 
MOV #T3OPK3,R4 sSET UP R4 WITH PACKET ADDRESS 
MOV R4,TSDBCRS) sISSUE COMMAND 
JSR PC ,WAITF sWAIT FOR SSR TO SET 
MOV TSSRCRS),R1 sPICK UP TSSR 
MOV #SSR!IBIT2!:SC,R2 sSET UP EXPECTED (SSR AND SC ONL 
CMP R1,R2 sWAS STATUS GOOD 
BEQ 160$ ;BR, IF TERMINATION WAS GOOD 
JSR PC ,.FATCHK sINC AND CHECK FOR MORE THAN 25 
ERRHRD ERRNO, TZOIBU,PKTSSR sTSSR NOT CORRECT AFTER oe 
~WORD 
- WORD 
- WORD 
160$: CKLOOP ;LOOP IF SELECTED 
TRAP 


SRERAAAAKAEAEEEERAEAAEAAEARARARAAEAREARAKARERAAREAREA SEALERS 


;GET EXTENDED STATUS REGISTER ZERO (XST3) FROM MESSAGE BUFFER 


’ 
sREEEREAEAEAREEAEREAEREAEEAAARAREREKAEAEARAAALEAEEELESEEEEEE 


MOV T3OBFR+14,R1 sPICK UP XST3 

MOV R1,R2 SET UP EXPECTED 

BIS #BITO,R2 s;SET RIB BIT IN EXPECTED 

CMP R1,R2 sDOES EXP = REC'D 

BEQ 170$ 3BR, IF EQUAL (OK) 

JSR PC ,FATCHK sINC AND CHECK FOR MORE THAN 25 


ERRHRD ERRNO, TSORIB,EXPREC sTAPE NOT AT RIB 


TRAP 


ee ee 


SEQ 0152 


ERRORS 
ITE 
IP 


CSERSOFT 
245 
T30OWDD 
PKTSSR 


CsCLPi 


1 CMD 


Y) 


ERRORS 
CSERHRD 
246 
T30IBU 
PKTSSR 


CsCLP1 


ERRORS 
CSERHRD 
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TEST 2: SKIP TAPE MARKS 
036322 000367 
036324 036635 
036326 016350 


036330 104406 


036332 104403 


5676 036334 004737 017360 


5677 036340 103002 


5678 036342 000137 032362 


036346 104432 
036350 002750 
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170$: CKLOOP 
ENDSUB 


SUBTEST END 
; 
; 
JSR PC, TSTLOOP 
400$ 
JMP T30LOOP 
400$: EXIT TST 


-WORD 247 
-WORD T3ORIB 
-WORD EXPREC 
sLOOP IF SELECTED 
CsCLP1 


3<<<<<¢<¢¢¢¢¢¢ END SUBTEST >>>>>>2> >>> 


L10047: 
TRAP CSESUB 


300 WE NEED TO ITERATE TEST 
:BR, IF NO LOOP REQUIRED 
sEXECUTE AGAIN 
sALL DONE THIS TEST 

TRAP CSEXxIT 
- WORD 





L10043-. 






SEQ 0153 





CZTKHB TK-25 FRT END FUNC 04 
TEST 2: SKIP TAPE MARKS 


5681 
5682 


5683 

5685 036352 
5687 036360 
5688 036360 
5689 036362 


5716 036514 
5717 036516 


$719 036520 
5720 036520 
5721 036521 
S722 036522 
5723 036524 


5729 036526 
5730 036526 
5731 036526 
5732 036530 
5733 036532 
5734 036534 
5735 036536 
5736 036540 
5737 036542 
5738 036544 
5739 036546 


pees 
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3¢ 
sLOCAL STORAGE FOR THIS TEST 


; 
sWRITE SUBSYSTEM MEMORY COMMAND PACKET 


-BLK 
T3OPACKET: 

. WORD 

. WORD 

. WORD 

. WORD 
T3ODATA: 

. WORD 

. WORD 

. WORD 
T30ETM: .WORD 
T30BFR: .BLKW 
ry 

-BLKB 
T30PK2: 

. WORD 

. WORD 

. WORD 

. WORD 
T3OPK3: 

. WORD 
T3ORB: 
T3OWB: WORD 

. WORD 
T30SZ: WORD 

EVEN 
T30BF2: 
T30BSO: .BYTE 
T30BS1i: .BYTE 
T30S2: WORD 
T30S3: WORD 


-EVEN 
;TAPE MOTION PACKET COMMAND VALUES 


T3OIMV: 
T3ORN: 


T3OCNT: . 
T3OCNU: . 
T3OFCN: . 
T3ODLY: . 


10-< .-TUV2AE7> 


100004 
T3ODATA 


10-< . - TUV2AE7> 
100006 

T30BF2 

0 

6. 

10-<. -TUV2AE7> 
100205 

FREE 



















N SEQ 0154 


sCOMMAND PACKET FOR TEST 
sWRITE CHARACTERISTICS COMMAND, WITH , ACK 
sADDRESS OF CHARACTERISTICS BLOCK 


sSTARTING VALUE OF BLOCK SIZE 
sCHARACTERISTICS DATA BLOCK 
sADDRESS OF MESSAGE BUFFER 


sLENGTH OF MESSAGE BUFFER 
SKIP TAPE MARK CONTROL 
sMESSAGE BUFFER 


sWRITE SUB SYS MEM COMMAND, AND ACK 
sADDRESS OF SELECT BLOCK DATA 


sSIZE OF DATA PACKET 


sREREAD COMMAND, IE AND ACK 
sADDRESS OF WRITE BUFFER 
sSIZE OF BUFFER CEXTENT) 


sBSELO AREA 
sBSEL1 AREA 
;SEL 2 AREA 
sDATA AREA 


sNEITHER EWB NOR ESS 
sEWB SET 

sESS SET 

;BOTH EWB AND ESS SET 
sEND OF DATA 

sTAPE TIMER COUNTER STORAGE AREA 
sTAPE TIMER COUNTER STORAGE AREA 
sFILE NUMBER COUNTER 
sDELAY COUNTER STORAGE 


CZTKHB TK-25 FRT END FUNC 04 
TEST 2: SKIP TAPE MARKS 


rae 


5741 
5742 
5743 


036550 
036635 
036721 
037004 
037060 
037132 
037223 
037303 
037361 
037443 
037520 
037601 
937652 
037731 
037776 
040053 
040130 
040177 
040252 
040331 
040404 
040466 
040545 
040623 
040702 
040760 
041024 
041121 


041142 
041142 
041146 
041152 
041156 
041162 
041164 
041170 
041174 
041176 
041202 
041204 
041210 
041214 
041222 





012701 
012721 
012721 
005021 
012721 
012721 
005021 
012721 
005021 
012711 
012702 
012762 
005742 


3¢ 
sLOCAL TEXT MESSAGES FOR TEST 


; 
sROUTINE TO RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUES 
sWRITE SUBSYSTEM MEMORY COMMAND 

; 


MACRO YOS.02 Tuesday 25-Jun-85 10:28 Page 97 


123 123 T30IBU: .ASCIZ 
111 102 T3ORIB: .ASCIZ 
123 123. T30IBT: .ASCIZ 
123 123 T3OSKM: .ASCIZ 
123 123 T3OWDD: .ASCIZ 
141 160 T3OPTB: .ASCIZ 
141 160 T3OTPB: .ASCIZ 
123 123 T3ORDF: .ASCIZ 
123 123 T3ORDG: .ASCIZ 
123 123 T3OWDF: .ASCIZ 
154 154 T30LOQ: .ASCIZ 
122 111 T30SSR: .ASCIZ 
123 123 T3OWDE: .ASCIZ 
141 160 T30BOT: .ASCIZ 
123 123 T30TM: .ASCIZ 
123 123 T3OTM2: .ASCIZ 
145 167 T3ORWN: .ASCIZ 
162 151 T3O00FL: .ASCIZ 
123 123 T3OWDC: .ASCIZ 
126 103 T3OVCK: .ASCIZ 
115 113 T3OTMK: .ASCIZ 
113 111 T3ONEF: .ASCIZ 
115 113 T3ORRM: .ASCIZ 
115 113 T3ORRN: .ASCIZ 
115 113 T3ORRP: .ASCIZ 
117 040 T3ODTR: .ASCIZ 
141 164 T3ODTA: .ASCIZ 
153 151 TST30ID: 
EV 
3* 
g° 
T3OREST: 
SAVREG 
036360 MOV 
100004 MOV 
036370 MOV 
CLR 
000012 MOV 
036400 MOV 
CLR 
000024 MOV 
CLR 
000000 MOV 
000030 MOV 
177777 036400 64%: at 























SEQ 0155 


‘TSSR Incorrect After SKIP TAPE MARK REVERSE Into BOT’ 
‘RIB Bit (XST3) Failed To Set After Reverse Into BOT’ 
‘TSSR Incorrect After SKIP TAPE MARK REVERSE At BOT’ 
‘TSSR Incorrect After SKIP TAPE MARK Command’ 

‘TSSR Not Correct After WRITE DATA Command’ 

‘Tape Not Positioned On Correct Record After READ REVERSE’ 
‘Tape Not Positioned On Second File First Record’ 
‘TSSR Incorrect After READ FORWARD Into “File”’ 

‘TSSR Incorrect After SPACE Command Into TAPE MARK’ 
‘TSSR Not Correct After Illegal Mode Bits Set’ 
main Mode Bits, Failed To Set ILC Bit In XSTO’ 
‘WRITE MISCELLANEOUS Command Not Accepted’ 

‘TSSR Not Correct After SKIP TAPE MARKS, At BOT’ 

‘Tape Not At BOT After REWIND Command’ 

‘TSSR Not Correct After SPACE FORWARD Command’ 

‘TSSR Not Correct After SPACE REVERSE Command’ 

‘Rewind (POSITION) Command Not Accepted’ 

‘Drive 7 Select Failed To Set “OFL” In TSSR’ 

‘TSSR Not Correct After WRITE TAPE MARK Command’ 

‘CVC Set, Didn'‘t Reset VCK In aes Buffer’ 

‘TMK Not Set After WRITE TAPE MARK (RETRY) Command’ 
‘SKIP TAPE MARKS, At BOT, Failed To Set NEF Bit’ 

‘TMK Not Set After READ REVERSE Into TAPE MARK’ 

‘TMK Not Set After SPACE REVERSE Into TAPE MARK’ 

‘TMK Not Set After READ FORWARD Into TAPE MARK’ 

‘NO Data Transferred On READ FORWARD’ 

‘Date Compare Error, Data Read From Tape Not Equal To Written’ 
-ASCIZ ‘Skip Tape Marks’ 


sSAVE THE REGISTERS 


@TSOPACKET ,R1 sSTART OF THE PACKET 
#100004, (R1)+ sWRITE SUBSYSTEM MEM. WITH ACK, 
@T3ODATA,(R1)+ sADDRESS OF CHARAISTICS DATA BLOCK 
(R1)+ sEXTENDED ADDRESS 
#10. ,CR1)+ sSIZE OF DATA BLOCK IN BYTES 
a sADDRESS OF MESSAGE BUFFER 

+ 
7 + ata sLENGTH OF MESSAGE BUFFER 

+ 
#0,(R1) sSELECT ORIVE ZERO 
24. ,R2 sNUMBER OF LOCATIONS TO BE CLEARED 
#177777, TSOBFR(R2) sALL_ONES TO MESSAGE BUFFER 
-(R2) sNEXT LOCATION 


revo 
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TEST 2: SKIP TAPE MARKS 


oe 


5798 041224 
5799 041230 


022702 
001371 
000207 


012701 


000000 


036470 
100006 
036520 
000006 


036520 


036510 
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T3ORT2: 


T3ORT3: 


#T30PK2,R1 
#100006, (R1)+ 
@T30BF2,(R1)+ 
(R1)+ 


@#T30PK3,R1 
(R1)+ 
(R1)+ 
(R1)+ 

(Ri) 

PC 
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sCHECK R2 FOR DONE 
sKEEP GOING UNTIL DONE 
sRETURN 


sSAVE THE REGISTERS 

sSTART OF THE PACKET 

sWRITE SUBSYSTEM MEM. WITH ACK, 
sADDRESS OF DATA BLOCK 
sEXTENDED ADORESS 

sSIZE OF DATA BLOCK IN BYTES 


sPOINT TO DATA SEL AREA 


sRETURN 


sSAVE REGISTERS 

sSET UP POINTER ADDRESS 
sCOMMAND SPACE 

sADDRESS OF DATA BLOCK 
sEXTENDED ADDRESS 

sSIZE OF DATA TRANSFER BLOCK 
sRETURN 


L10043: 


TRAP 





CSsETST 








SEQ 0156 


Ss 
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TEST 3: NO-OP (“CLEAN TAPE”) AND INITIALIZE SEQ 0157 

5825 -SBTTL TEST 3: NO-OP (CLEAN TAPE”) AND INITIALIZE 
sae ’ 

‘ 3 
5828 sTHIS TEST VERIFIES PROPER OPERATION OF THE NO-OP (“CLEAN TAPE”) AND INITIALIZE 
5829 sCOMMAND (SPACE REVERSE, ERASE, WRITE DATA) 
5830 3 
5831 3 
rote sTHE TEST CONSISTS OF THE FOLLOWING 2 SUBTESTS 

3 
5834 3 
5835 3 
5836 3° 
5837 041322 BGNTST 
041322 T3:: 

5838 041322 005037 002172 CLR FATFLG sCLEAR FATAL ERROR FLAG 
5839 041326 005037 003104 CLR KTFLG sHOLD OFF KT11 
5840 041332 012737 005676 002150 MOV @EPRT1 ,EPRTSW sPRIMARY ERROR MESSAGE 
5845 041340 012700 046413 MOV @TST31ID,RO sASCII MESSAGE TO IDENTIFY TEST 
5846 041344 004737 017412 JSR PC, TSTSE TUP 3:00 INITIAL TEST SETUP 
5847 041350 012737 000002 002166 MOV #2 ,LOOPCNT sPERFORM 2 ITERATIONS 
poss 041356 005037 043206 CLR T31iCNT ;CLEAR TAPE RECORD COUNTER 
B4 
5850 - 
5851 
5852 041362 T31L00P: 
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TEST 3: NO-OP (“CLEAN TAPE”) AND INITIALIZE SEQ 0158 

5854 %* 

5855 F 

ses? sTEST 3, SUBTEST 1 

: 

5858 3 VERIFIES THAT THE NO-OP COMMAND (CORRESPONDS TO THE CLEAN TAPE 

5859 : COMMAND) TERMINATES PROPERLY (NORMAL TERMINATION), STORES PROPER 

5860 3 STATUS IN THE MESSAGE BUFFER (LIKE THE GET STATUS COMMAND), AND 

5861 r INDEED DOES NOT MOVE TAPE. THE TAPE IS FIRST REWOUND AND 

5862 3 WRITTEN WITH SEQUENCED TEST RECORDS. IT IS THEN REWOUND AGAIN 

5863 8 AND THE NO-OP COMMAND IS ISSUED. IT IS VERIFIED THAT THE TAPE 

5864 3 IS STILL AT BOT AND THAT PROPER STATUS IS STORED. THE FIRST 

5865 3 RECORD ON TAPE IS READ AND VERIFIED (TO CHECK TAPE POSITION AND 

5866 3 VERIFY THAT DATA WAS NOT CHANGED), THEN THE NO-OP COMMAND IS 

ose 3 ISSUED AGAIN AND STATUS AND POSITION VERIFIED. 

Q 

5869 8 

5870 F 

5871 8 

5872 3 

5873 3 

5874 3- 

5875 041362 BGNSUB 3>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
041362 T3.1: 
041362 104402 TRAP C$BSUB 

5876 041364 004737 046460 JSR PC, T31REST :SET COMMAND PACKET 

5877 041370 004737 046552 JSR PC, T31RT2 ;SET UP OTHER COMMAND PACKET 

5678 041374 004737 046614 JSR PC, T31RT3 ;SET UP OTHER COMMAND PACKET 

5679 041400 012737 176750 043212 MOV #65000. ,T31DLY ;SET UP DELAY COUNTER 

5880 041406 004737 016650 10$: JSR PC ,SOF INIT 300 INITIALIZE ON CONTROLLER 

5881 041412 103426 6cs 208 ;BR IF INIT WAS OK 

5882 041414 DELAY 250 sDELAY ABOUT .25 SEC 
041414 012727 000250 MOV $250 ,(PC)+ 
041420 090000 - WORD t) 
041422 013727 002116 MOV LSDLY.CPC)+ 
041426 000000 . WORD 0 
041430 005367 177772 DEC -6(PC) 
041434 001375 BNE 7-4 
041436 005367 177756 DEC -22(PC) 
041442 001367 BNE .-20 

5882 041444 005337 043212 DEC T310LY ;BUMP COUNTER 

5884 041450 001356 BNE 10$ ;BR, IF COUNTER NOT DONE 

5885 041452 004737 020104 JSR PC ,FATCHK sINC AND CHECK FOR MORE THAN 25 ERRORS 

5889 041456 010001 MOV RO,R1 sCONTENTS OF TSSR REGISTER 

5890 041460 ERROF ERRNO, SFIERR ,SFIMSG sFATAL ERROR TSSR WAS NOT OK 
041460 104455 TRAP CSERDF 
041462 000455 WORD 301 
041464 003554 WORD SFIERR 
041466 011666 WORD SF IMSG 

5891 041470 208: 

5892 041470 012704 043030 MOV #T31PACKET ,R4 ;SUBROUTINE NEEDS PACKET ADDRESS 

5893 041474 004737 019332 JSR PC,WRTCHR ;ISSVE WRITE CHARACTERISTICS 

5894 041500 103407 BCS 23% 3;BR, IF COMMAND ISSUED OK 

5895 041502 004737 020104 JSR PC .FATCHK sINC AND CHECK FOR MORE THAN 25 ERRORS 

5899 041506 010001 MOV RO,R1 ;SAVE CONTENTS OF TSSR 

5900 041510 ERRHRD ERRNO,WRTMSG,SFIMSG ;WRITE CHARACTERISTISC FAILED 
041510 104456 TRAP CSERHRD 
041512 000456 -WORD 302 








rc 
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010434 


020104 


043056 
600002 


020104 


010434 


020104 
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TEST 3: NO-OP (“CLEAN TAPE”) AND INITIALIZE 


043162 
043160 


043166 


23%: 


40$: 


65$: 


80$: 


ERRSOF T 


JSR 
ERRHRD 





PC ,REWIND 
30$ 


RO,R4 
PC ,FATCHK 
ERRNO, TS1RWN,PKTSSR 


T31BFR+6,R1 


40$ 
PC ,FATCHK 
ERRNO, T31B0T ,EXPREC 


FREE , T31WB 
#140005, T31PK3 
@T31PK3,R4 
#100. ,RO 
PC,FILLMEM 
#100. ,T31SZ 
R4,TSDBCRS) 
PC ,WAITF 
TSSRCRS),R1 
SSR ,R2 
R1,R2 


80$ 
PC ,FATCHK 


ERRNO, T31WDC ,PKTSSR 


PC ,REWIND 
230$ 

RO,R1 

PC ,FATCHK 

ERRNO, T31RWN,EXPREC 


WRTMSG 
SF IMSG 
sLOOP IF SELECTED 

TRAP CSCLPi 


sCALL TAPE REWIND COMMAND 

sBR, IF NO PROBLEM 

sSET UP REWIND PACKET ADORESS 

sINC AND CHECK FOR MORE THAN 25 ERRORS 
sREWIND NOT ACCEPTED 


TRAP CSERHRD 

-WORD 303 

-WORD  T31RWN 

-WORD PKTSSR 
sLOOP IF SELECTED 

TRAP CSCLP1 


sPICK UP XSTO 
sSET UP EXPECTED 
sSET BOT BIT IN EXPECTED 
sDOES EXP = REC'D 
sBR, IF EQUAL (OK) 
sINC AND CHECK FOR MORE THAN 25 ERRORS 
;TAPE NOT AT BOT AFTER REWIND 
TRAP CSERHRD 
4 


-WORD 30 

-WORD 131B0T 

-WORD EXPREC 
sLOOP IF SELECTED 

TRAP CSCLP1 


sSTARTING WRITE BUFFER ADDRESS 
;WRITE DATA,CVC=1,ACK COMMAND 

;SET UP R4 WITH PACKET ADDRESS 

;SET PATTERN IN CORRECT REGISTER 
sFILL MEMORY WITH RECORD SIZE 

;SET UP RECORD SIZE IN PACKET 
sISSUE COMMAND 

;WAIT FOR SSR TO SET 

;GET 7SSR CONTENTS 

;SET UP EXPECTED 

;ARE THEY EQUAL 

;BR, IF OK 

sINC AND CHECK FOR MORE THAN 25 ERRORS 
;SOFT ERROR, DON'T CARE ABOUT WRITE 
;COMMAND‘'S RESULTS - CHECKING 
3;NO-OP COMMAND 

:TSSR INCORRECT AFTER WRITE DATA 


TRAP CSERSOFT 


-WORD 305 
-WORD T31WDC 
-WORD PKTSSR 


;LOOP IF SELECTED 
TRAP CSCLP1 


sCALL TAPE REWIND COMMAND 
BR, IF NO PROBLEM 
SAVE TSSR 
sINC AND CHECK FOR MORE THAN 25 ERRORS 
sREWIND NOT ACCEPTED 
CSERHRD 


TRAP 









SEQ 0159 
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TEST 3: NO-OP (“CLEAN TAPE”) AND INITIALIZE 


000462 
044544 
016350 


104406 
013701 
010102 
052702 
020102 
001406 
004737 


104456 
000463 
044215 
016350 


104406 
012737 
012704 
010337 
010465 
004737 
016501 
012702 


044215 
016350 


104406 
012737 
012704 
012737 
010465 
004737 
016501 
012702 
020102 
001406 


043056 
000002 


020104 


043056 
000002 


020104 


140001 
043160 


043160 


043160 
043166 


2308: 


2408: 
265: 


2808: 


285$: 
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ERRHRD 


CKLOOP 


ERRHRD 


CKLOOP 





T31BFR+6,R1 
Ri 


#041012, T31PK3 
#T31PK3,R4 
R3,731SZ 
R4,TSDBCRS) 

PC ,WAITF 
TSSRCRS),R1 
#SSR ,R2 

R1,R2 

280$ 

PC ,FATCHK 
ERRNO, T31RDF ,PKTSSR 


T31BFR+6,R1 

R1,R2 

#BIT1,R2 

R1,R2 

2853 

PC ,FATCHK 

ERRNO, T31B0T ,EXPREC 


#140001, T31PK3 
#T31PK3,R4 
#100. ,131SZ 
R4,TSDBCRS) 

PC ,WAITF 
TSSRCRS),R1 
#SSR ,R2 

R1,R2 

290$ 
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sLOOP IF SELECTED 


sPICK UP XSTO 
sSET UP EXPECTE 


vy) 
sSET BOT BIT IN EXPECTED 


sDOES EXP = REC'D 
sBR, IF EQUAL (OK) 


sINC AND CHECK FOR MORE THAN 25 
;TAPE NOT AT BOT AFTER — 


sLOOP IF SELECTED 
sNO-07 ,CvC=1 COMMAND 


sSET UP R4 WITH PACKET ADDRESS 
sSET UP RECORD SIZE IN PACKET 


sISSUE COMMAND 

sWAIT FOR SSR TO SET 
GET TSSR CONTENTS 
sSET UP EXPECTED 
sARE THEY EQUAL 

;BR, IF OK 


sINC AND CHECK FOR MORE THAN 25 
sTSSR INCORRECT AFTER READ DATA 


;sLOOP IF SELECTED 


;sPICK UP XSTO 
sSET UP EXPECTED 


sSET BOT BIT IN EXPECTED 


sDOES EXP = REC'D 
sBR, IF EQUAL (OK) 


sINC AND CHECK FOR MORE THAN 25 
;TAPE NOT AT BOT AFTER — 


;LOOP IF SELECTED 


;READ, ACK, CVC=1 COMMAND 
;SET UP R4 WITH PACKET ADDRESS 
;SET UP RECORD SIZE IN PACKET 


sISSUE COMMAND 
sWAIT FOR SSR TO SET 
sGET TSSR CONTENTS 
;SET UP EXPECTED 
sARE THEY EQUAL 
sBR, IF OK 


T31RWN 
EXPREC 


CSCLP1 


ERRORS 
CSERHRD 
307 
T3180T 
EXPREC 


CsCLP1 


ERRORS 


CSCLP1 


ERRORS 


CSERHRD 
309 
T31B0T 
EXPREC 


CsCLP1 























SEQ 0160 
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TEST 3: NO-OP (“CLEAN TAPE”) AND INITIALIZE SEQ 0161 
5998 042146 004737 020104 JSR PC ,.FATCHK sINC AND CHECK FOR MORE THAN 25 ERRORS 
6002 042152 ERRHRD ERRNO, T31RDE,PKTSSR ;TSSR INCORRECT AFTER READ DATA 

042152 104456 TRAP CSERHRD 
042154 000466 «WORD 310 
042156 043214 «WORD T3iRDE 
042160 011700 «WORD PKTSSR 
6003 042162 2908: CKLOOP ;LOOP IF SELECTED 
042162 104406 TRAP CSCLP1 
6004 042164 017701 140706 MOV OFREE,R1 ;GET DATA READ 
6005 042170 012702 000144 MOV #100. ,R2 sREAD EXPECTED 
6006 042174 020102 CMP R1,R2 ;DID TAPE STAY POSITIONED 
6007 042176 001406 BEQ 330$ ;BR, IF EXPD = RECD 
6008 042200 004737 020104 JSR PC ,FATCHK ;INC AND CHECK FOR MORE THAN 25 ERRORS 
6012 042204 ERRHRD ERRNO, T31WNG,EXPREC ;TAPE DATA NOT CORRECT 
042204 104456 TRAP CSERHRD 
042206 000467 «WORD 311 
042210 043341 «WORD T31WNG 
042212 016350 «WORD EXPREC 
6013 042214 330$: 
6014 042214 ENDSUB 3>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 
042214 L10051: 
042214 104403 TRAP CSESUB 
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TEST 3: NO-OP ("CLEAN TAPE”) AND INITIALIZE SEQ 0162 

6016 3+ 

6017 $ 

6018 sTEST 3, SUBTEST 2 

6019 3 

6020 H 

6021 F VERIFIES THAT THE INITIALIZE COMMAND OPERATES AS A NO-OP, 

6022 3 ASSUMING NO MICRODIAGNOSTIC ERRORS ARE PRESENT (THEY WOULD 

6023 3 ALREADY HAVE BEEN DETECTED IN PREVIOUS TESTS). THE TEST 

6024 F SEQUENCE IS SIMILAR TO THAT USED IN SUBTEST 1. 

6025 : 

6026 ; 

6027 3 

6028 3° 

6029 042216 BGNSUB 3>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
042216 73.2: 
042216 104402 TRAP C$BSUB 

6030 042220 004737 046460 JSR PC, T31LREST :SET COMMAND PACKET 

6031 042224 004737 046552 JSR PC,T31RT2 ;SET UP OTHER COMMAND PACKET 

6032 042230 004737 046614 JSR PC, T31RT3 ;SET UP OTHER COMMAND PACKET 

6033 042234 004737 016650 JSR PC ,SOFINIT ;D0 INITIALIZE ON CONTROLLER 

6034 042240 103407 BCS 20$ ;BR IF INIT WAS OK 

6035 042242 004737 020104 JSR PC ,FATCHK sINC AND CHECK FOR MORE THAN 25 ERRORS 

6039 042246 010001 MOV RO,R sCONTENTS OF TSSR REGISTER 

6040 042250 ERRDF ERRNO,SFIERR,SFIMSG sFATAL ERROR TSSR WAS NOT OK 
042250 104455 TRAP CSERDF 
042252 000470 «WORD 312 
042254 003554 -WORD SFIERR 
042256 011666 «WORD SFIMSG 

6041 042260 20$: 

6042 042260 012704 043030 MOV #T31PACKET ,R4 ;SUBROUTINE NEEDS PACKET ADDRESS 

6043 042264 004737 010332 JSR PC ,WRTCHR sISSUE WRITE CHARACTERISTICS 

6044 042270 103407 6cS 23$ ;BR, IF COMMAND ISSUED OK 

6045 042272 004737 020104 JSR PC ,FATCHK sINC AND CHECK FOR MORE THAN 25 ERRORS 

6049 042276 010001 MOV RO,R ;SAVE CONTENTS OF TSSR 

6050 042300 ERRHRD ERRNO,WRTMSG,SFIMSG sWRITE CHARACTERISTISC FAILED 
042300 104456 TRAP CSERHRD 
042302 000471 -WORD 313 
042304 004760 -WORD WRTMSG 
042306 011666 -WORD SFIMSG 

6051 042310 23%: CKLOOP ;LOOP IF SELECTED 
042310 104406 TRAP CSCLP1 

6052 042312 004737 010434 JSR PC ,REWIND ;CALL TAPE REWIND COMMAND 

6053 042316 103407 BCS 30$ :;BR, IF NO PROBLEM 

6054 042320 010004 MOV RO,R4 ;SET UP REWIND PACKET ADDRESS 

6055 042322 004737 020104 JSR PC ,FATCHK sINC AND CHECK FOR MORE THAN 25 ERRORS 

6059 042326 ERRHRD ERRNO, T31RWN,PKTSSR sREWIND NOT ACCEPTED 
042326 104456 : TRAP CSERHRD 
042330 000472 -WORD 314 
042332 044544 -WORD T3iRWN 
042334 011700 : -WORD PKTSSR 

6060 042336 30$: CKLOOP ;LOOP IF SELECTED 
042336 104406 TRAP CS$CLP1L 

6061 042340 013701 043056 MOV T31BFR+6,R1 ;PICK UP XSTO 

6062 042344 010102 MOV R1,R2 ;SET UP EXPECTED 

6063 042346 052702 000002 BIS #BIT1,R2 ;SET BOT BIT IN EXPECTED 

6064 042352 020102 CMP R1,R2 ;DOES EXP = REC'D 

6C65 042354 001406 BEQ 40$ ;BR, IF EQUAL (OK) 
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6066 
6070 


6071 
6072 


6074 
6075 


6079 
6081 


042356 
042362 
62 


004737 


104456 
000473 
044215 
016350 


104406 
013737 
012737 
012704 
012700 
004737 
012737 
010465 
004737 
016501 
012702 
020102 
001406 
004737 


104457 
000474 
045100 
011700 


104406 
004737 
103407 
010001 
004737 


104456 
000475 
044544 
016350 


104406 
013701 
010102 
052702 
020102 
001406 
004737 


104456 
000476 
044215 
016350 


104406 
012737 
012704 








020104 


40$: 


003076 043162 
140005 043160 65%: 


043166 


80$: 
010434 


020104 


2308: 


043056 
000002 


020104 


2408: 
043160 265%: 


041012 
043160 


JSR 
ERRHRD 


JSR 
ERRHRD 


CKLOOP 


JSR 
ERRHRD 


CKLOOP 


MOV 
MOV 


PC ,FATCHK 
ERRNO, T31B0T ,EXPREC 


FREE , T31WB 
#140005, T31PK3 
#T31PK3,R4 
#100. ,RO 

PC ,FILLMEM 
#100. ,T31SZ 
R4,TSDBCRS) 
PC ,WAITF 
TSSRCRS),R1 
#SSR,R2 
R1,R2 


80$ 
PC ,FATCHK 


ERRNO, T3iWDC ,PKTSSR 


PC ,REWIND 

230$ 

RO,R1 

PC ,FATCHK 

ERRNO, T31RWN,EXPREC 


T31BFR+6,R1 


PC ,FATCHK 
ERRNO, T31B0T ,EXPREC 


#041012, T31PK3 
#T31PK3,R4 
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sINC AND CHECK FOR MORE THAN 25 ERRORS 
s;TAPE NOT AT BOT AFTER REWIND 


TRAP CSERHRD 
-WORD 315 
-WORD  T3180T 
«WORD EXPREC 
;LOOP IF SELECTED 
CsCLP1 


TRAP 
sSTARTING WRITE BUFFER ADDRESS 
sWRITE DATA,CVC=1,ACK COMMAND 
sSET UP R4 WITH PACKET ADDRESS 

;SET PATTERN IN CORRECT REGISTER 
sFILL MEMORY WITH RECORD SIZE 
sSET UP RECORD SIZE IN PACKET 
sISSUE COMMAND 
sWAIT FOR SSR TO SET 
sGET TSSR CONTENTS 
SET UP EXPECTED 
sARE THEY EQUAL 
sBR, IF OK 
sINC AND CHECK FOR MORE THAN 25 ERRORS ~ 
sSOFT ERROR, DON’T CARE ABOUT WRITE 
sCOMMAND‘'S RESULTS - CHECKING 
sTHE INITIALIZE COMMAND 
sTSSR INCORRECT AFTER WRITE DATA 


TRAP CSERSOFT 
-WORD 316 
-WORD  T31WDC 
-WORD PKTSSR 
;sLOOP IF SELECTED 
CsCLP1 


TRAP 
sCALL TAPE REWIND COMMAND 
;BR, IF NO PROBLEM 
SAVE TSSR 
sINC AND CHECK FOR MORE THAN 25 ERRORS 
sREWIND NOT ACCEPTED 


TRAP CSERHRD 
-WORD 317 
-WORD T31RWN 
-WORD EXPREC 
;LOOP IF SELECTED 
TRAP CSCLP1 


sPICK UP XSTO 

;SET UP EXPECTED 

sSET BOT BIT IN EXPECTED 
s;DOES EXP = REC'D 

sBR, IF EQUAL (OK) 

sINC AND CHECK FOR MORE THAN 25 ERRORS 
;TAPE NOT AT BOT AFTER — 


CSERHRD 
-WORD 318 
-WORD 131B0T 
-WORD EXPREC 
;LOOP IF SELECTED 
CSCLP1L 


TRAP 
sINITIALIZE,CVC=1 COMMAND 
SET UP R4 WITH PACKET ADDRESS 


SEQ 0163 
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6115 
6116 


042570 


010337 


011700 


104406 
017701 
012702 
020102 
001406 
004737 


104456 
000502 
043260 
016350 


043166 
177776 
017124 
000000 
000200 


020104 


043056 
000002 


020104 


140001 
043160 
000144 
177776 
017124 
000000 
000200 


020104 


140116 
000144 


020104 
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043160 
043166 


2805: 


285$: 


290$: 


330$: 


ERRHRD 


CKLOOP 


ERRHRD 


CKLOOP 


ERRHRD 


ENDSUB 


R3,731SZ 

R4, TSOBCRS) 

PC. WAITF 
TSSR(RS),R1 

@SSR .R2 

R1,R2 

2808 

PC ,FATCHK 

ERRNO, T31RDF ,PKTSSR 


ay tate 


PC ,FATCHK 
ERRNO, T31B0T ,EXPREC 


#140001, T31PK3 
#T31PK3,R4 
#100. ,T31SZ 
R4,TSDBCRS) 

PC ,WALTF 
TSSRCRS),R1 
#SSR,R2 

R1,R2 

290$ 

PC ,FATCHK 
ERRNO, T31RDE ,PKTSSR 


OFREE,R1 

#100. ,R2 

R1,R2 

330$ 

PC ,FATCHK 

ERRNO, T31WNH,EXPREC 


;SET UP RECORD SIZE IN PACKET 

sISSUE COMMA 

;WAIT FOR SSR TO SET 

;GET TSSR CONTENTS 

;SET UP EXPECTED 

sARE THEY EQUAL 

;BR, IF OK 

;INC AND CHECK FOR MORE THAN 25 ERRORS 
;TSSR INCORRECT AFTER READ DATA 


TRAP CSERHRD 

-WORD 319 

-WORD  T31RDF 

-WORD PKTSSR 
sLOOP IF SELECTED 

TRAP CsCLP1 


sPICK UP XSTO 

;SET UP EXPECTED 

:SET BOT BIT IN EXPECTED 

sDOES EXP = REC'D 

sBR, IF EQUAL (OK) 

sINC AND CHECK FOR MORE THAN 25 ERRORS 
;TAPE NOT AT BOT AFTER REWIND 


TRAP CSERHRD 

-WORD 320 

-WORD  T31B0T 

-WORD EXPREC 
sLOOP IF SELECTED 

TRAP CsCLP1 


sREAD,ACK,CVC=1 COMMAND 

SET UP R4 WITH PACKET ADDRESS 
sSET UP RECORD SIZE IN PACKET 
ISSUE COMMAND 

sWAIT FOR SSR TC SET 

sGET TSSR CONTENTS 

sSET UP EXPECTED 

sARE THEY EQUAL 

:BR, IF OK 

sINC AND CHECK FOR MORE THAN 25 ERRORS 
;TSSR INCORRECT AFTER READ DATA 


TRAP CSERHRD 

-WORD 321 

-WORD T31RDE 

-WORD PKTSSR 
;LOOP IF SELECTED 

TRAP CSCLP1 


sGET DATA READ 

sREAD EXPECTED 

;DID TAPE STAY POSITIONED 

sBR, IF EXPD = RECD 

sINC AND CHECK FOR MORE THAN 25 ERRORS 
sTAPE POSITION NOT CORRECT AFTER INIT 


TRAP CSERHRD 
-WORD 322 
-WORD T31WNH 
-WORD  EXPREC 


3>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 


Wei cceeasiecd ei a licen cab 


ee eee 


SEQ 0164 
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043004 L10052: 
043004 104403 TRAP 
6165 3 
6166 3 
6167 Hy 
6168 043006 004737 017360 JSR PC, TSTLOOP ;D0 WE NEED TO ITERATE TEST 
6169 043012 103002 BCC 163$ ;BR, IF NO LOOP REQUIRED 
6170 043014 000137 041362 JMP T31L00P sEXECUTE AGAIN 
6171 043020 163$: EXIT TST ;ALL DONE THIS TEST 


043020 104432 TRAP CSEXIT 
043022 003614 ° L19050-. 
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TEST 3: NO-OP ("CLEAN TAPE”) AND INITIALIZE 


6173 
6174 
6175 
6177 
6179 
6180 
6181 
6182 
6183 
6184 
6165 
6186 
6187 


100205 
100605 
102205 
177777 


000000 
000000 
000000 


3+ 
sLOCAL STORAGE FOR THIS TEST 


; 
sWRITE SUBSYSTEM MEMORY COMMAND PACKET 


-BLK 
T3iPACKET: 
-WORD 
. WORD 
- WORD 
- WORD 
T31DATA: 
. WORD 
. WORD 
. WORD 
. WORD 
T31iBFR: .BLKW 
; 
-BLKB 
T31PK2: 
- WORD 
. WORD 
. WORD 
. WORD 
-BLKB 
T31PK3: 
- WORD 
T31RB: 
T31WB: .WORD 
- WORD 
T31SZ: .WORD 
EVEN 
; 
T318F2: 
T318S0: .BYTE 
T318S1: .BYTE 
T31S2: .WORD 
T31S3: .WORD 


-EVEN 
TAPE MOTION PACKET COMMAND VALUES 


- WORD 
- WORD 


T3iRN: 
T31WOR: 
T31CON: . 


T31CNT: . 
T3iCNU: . 
T3iDLY: . 


10-< . - TUV2AE7> 
100004 

T31DATA 

0 

10. 

T31BFR 

0 

20. 


.] 
25. 


10-<.-TUV2AE7> 
100006 

T318F2 

0 

6. 

10-< .-TUV2AE7> 
190005 

FREE 

0 

0 


200 


100205 
100605 
102205 
177777 


ooo 
















SEQ 0166 


sCOMMAND PACKET FOR TEST 
sWRITE CHARACTERISTICS COMMAND, WITH , ACK 
sADDRESS OF CHARACTERISTICS BLOCK 


sSTARTING VALUE OF BLOCK SIZE 
sCHARACTERISTICS DATA BLOCK 
sADDRESS OF MESSAGE BUFFER 
sLENGTH OF MESSAGE BUFFER 


sMESSAGE BUFFER 


sWRITE SUB SYS MEM COMMAND, AND ACK 
sADDRESS OF SELECT BLOCK DATA 


sSIZE OF DATA PACKET 


sREREAD COMMAND, AND ACK 
sADDRESS OF WRITE BUFFER 
sSIZE OF BUFFER (EXTENT) 


sBSELO AREA 
sBSEL1 AREA 
;SEL 2 AREA 
DATA AREA 


sREREAD DATA (NEXT) 
sREREAD DATA RETRY 
WRITE CONTINOUS 
sEND OF DATA 


;TAPE TIMER COUNTER STORAGE AREA 
sTAPE TIMER COUNTER STORAGE AREA 
sDELAY COUNTER 
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pees 


6236 
6237 


046460 
046460 
046464 
046470 
046474 
046500 
046502 
046506 


012701 
012721 
012721 
005021 
012721 
012721 


043030 
100004 
043040 


000012 
043050 
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SEQ 0167 


3* 
sLOCAL TEXT MESSAGES FOR TEST 


123 T31RDE: 
160 T31WNH: 
160 T31WNG: 
123 T31R0F: 
122 T31RRF: 
123 T31iSC: 

102 T31iLOR: 

123 T31WOF: 
154 T31L0Q: 
122 T31SSR: 
123 T31WDE: 

160 T31B0T: 
055 T3iTIM: 
122 T31E0T: 
123. T31TM: 

167 T31RWN: 
115 T3iRNC: 
123 T31AM3: 
151 T310FL: 
123 T31WDD: 
123 T31W0C: 
103 T31VCK: 
102 T31BA: 

111 T31WSS: 
141 T31iLON: 
141 T31LOP: 
163 T31P6P: 
141 T3iTRL: 
055 T3iNEF: 
123 T31SCF: 
123 T31iTSA: 
123 T31WRF: 
164 T3iDTA: 
055 TST31ID0: 


3¢ 


-ASCIZ 
-ASCIZ 
-ASCIZ 
-ASCIZ 
-ASCIZ 
-ASCIZ 
-ASCIZ 
-ASCIZ 
-ASCIZ 
-ASCIZ 
-ASCIZ 
-ASCIZ 
-ASCIZ 
-ASCIZ 
-ASCIZ 
-ASCIZ 
-ASCIZ 
-ASCIZ 
-ASCIZ 
-ASCIZ 
-ASCIZ 
-ASCIZ 
-ASCIZ 
-ASCIZ 
»ASCIZ 
-ASCIZ 
-ASCIZ 
-ASCIZ 
-ASCIZ 
-ASCIZ 
-ASCIZ 
-ASCIZ 
-ASCIZ 


-EVEN 


‘TSSR Not Correct After READ Command’ 

‘Tape Position Incorrect After INITIALIZE Command’ 

‘Tape Position Incorrect After NOP Command’ 

‘TSSR Incorrect After READ DATA Command’ 

‘REREAD Previous (Space Reverse, Read Forward) Command Failed’ 
‘POSITION (Space Command) Failed, TSSR Not Correct’ 

‘RIB NOT SET AFTER READ REVERSE INTO BOT’ 

‘TSSR Not Correct After Illegal Mode Bits Set’ 

‘Illegal Mode Bits, Failed To Set ILC Bit In XSTO’ 

‘REREAD COMMAND Not Accepted’ 

‘TSSR Not Correct After NO-OP (“CLEAN TAPE”) AND INITIALIZE Command, At BOT’ 
‘Tape Not At BOT After REWIND Command (BOT Not Set In XSTO)’ 

‘NO-OP (“CLEAN TAPE”) AND INITIALIZE''S Erase Tape Not Long Enough’ 
‘REREAD DATA OVER EOT GAVE NO TAPE STATUS ALERT’ 

‘TSSR Not Correct After REREAD COMMAND Reject’ 

‘Rewind (POSITION) Command Not Accepted’ 

‘RAM Error, Correct Data Pattern Not In Ram’ 

‘TSSR Init. Failed After REREAD COMMAND’ 

‘Drive 7 Select Failed To Set “OFL” In TSSR‘ 

‘TSSR Not Correct After REREAD DATA Command, SWB Bit Set’ 

‘TSSR Not Correct After REREAD DATA Command’ 

‘CVC Set, Didn''t Reset VCK In oy a Buffer’ 

‘TSBA Not Correct After REREAD DATA Command’ 

‘WRITE SUBSYSTEM MEMORY Command Not Accepted (RAM Read)’ 

‘Reading Long Record Failed To Set RLL Bit Im XSTO' 

"Reading Long Record Failed To Set RLS Bit In XxSTO' 

‘Residual Byte Count Incorrect After Short Record Read’ 

‘Readi ,one Record Failed To Give Tape Status Alert’ 

‘NO-OP ("CLEAN TAPE”) AND INITIALIZE, At First Record, Failed To Set RIB Bit 
‘TSSR Not Correct After SPACE RECORDS Command’ 

‘TSSR Not Correct After NO-OP (“CLEAN TAPE”) AND INITIALIZE, Into BOT’ 
‘TSSR Not Correct After NO-OP (“CLEAN TAPE”) AND INITIALIZE Command’ 
‘Date Compare Error, Data Read From Tape Not Equal To Written’ 
-ASCIZ ‘NO-OP ("Clean Tape”) And INITIALIZE‘ 


; 
sROUTINE TO RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUES 
sWRITE SUBSYSTEM MEMORY COMMAND 


T31REST: 


VREG 


sSAVE THE REGISTERS 
@TSLPACKET,R1 sSTART OF THE PACKET 
#100004, (R1)-+ sWRITE SUBSYSTEM MEM. WITH ACK, 
@T31DATA,(R1)+ sADDRESS OF CHARAISTICS DATA BLOCK 
(R1)+ sEXTENDED ADDRESS 
#10. ,CR1)+ sSIZE OF DATA BLOCK IN BYTES 
@T31BFR,(CR1)+ sADDRESS OF MESSAGE BUFFER 
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TEST 3: NO-OP (“CLEAN TAPE”) AND INITIALIZE 


6293 046512 


7 
a 
w 
- 
J 
¥4 
B 
pe 
> 


poe 


005021 


000024 
000000 
000030 
177777 
000000 


043140 
100006 
043170 
000006 


043170 


043160 


043050 64%: 


T31RT2: 


T31RT3: 
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(R1)+ 
#20. ,CR1)+ 
CR1)>+ 


0,(R1) 


#24. ,R2 
#177777, T31BFRCR2) 


-(R2) 


@T31PK2,R1 
#100006, (R1)+ 
@T31BF2,(R1)+ 


#T318F2,R1 
(R1)-+ 

(R1) 

PC 


#T31PK3,R1 
C(R1i)+ 
CR1)+ 
(R1)+ 

(R1) 

PC 








sLENGTH OF MESSAGE BUFFER 


sSELECT DRIVE ZERO 
sNUMBER OF LOCATIONS TO BE CLEARED 
sALL_ ONES TO MESSAGE BUFFER 


sNEXT LOCATION 


sAT END OF LOOP YET 
sKEEP GOING UNTIL DONE 


sRETURN 


sSAVE THE REGISTERS 
sSTART OF THE PACKET 


sWRITE SUBSYSTEM MEM. WITH ACK, 


sADDRESS OF DATA BLOCK 
sEXTENDED ADDRESS 
sSIZE OF DATA BLOCK IN BYTES 


sPOINT TO DATA SEL AREA 


sRETURN 


sSAVE REGISTERS 
sSET UP POINTER ADDRESS 
sCOMMAND SPACE 


sADDRESS OF DATA BLOCK 
sEXTENDED ADDRESS 
sSIZE OF DATA TRANSFER BLOCK 


sRETURN 


L10050: 





TRAP 






CSETST 
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005037 
005037 
012737 
012700 
004737 
012737 
005037 


005737 
001012 
005237 


012746 


002150 


002166 
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+ 


THE TEST CONSISTS OF THE FOLLOWING 3 SUBTESTS 






SEQ 0169 







-SBTTL TEST 4: Erase And Operation Incomplete 





VERIFIES THAT AN ERASE COMMAND ISSUED WHEN THE TAPE IS 
POSITIONED AT BOT OPERATES PROPERLY AND ACTUALLY ERASES TAPE. 
THE FOLLOWING TEST SEQUENCE IS PERFORMED: 





1. THE TAPE IS FIRST REWOUND, SEVERAL TEST RECORDS ARE 
WRITTEN, AND THE TAPE IS REWOUND AGAIN. 


2. AN ERASE COMMAND IS ISSUED, WHICH SHOULD ERASE A NUMBER 
OF THE TEST RECORDS. 


3. NORMAL TERMINATION IS VERIFIED AND STATUS IS CHECKED 
(BOT SHOULD BE 0). 


4. A READ REVERSE COMMAND IS ISSUED. IT IS VERIFIED THAT 
THE COMMAND TERMINATES WITH TAPE STATUS ALERT, THAT THE 
REVERSE INTO BOT (RIB) STATUS BIT IS SET, AND THAT NO 
DATA IS TRANSFERRED. THIS DEMONSTRATES THAT NO DATA 
—- IN THE AREA ERASED BY THE ERASE 





BGNTST ad 

CLR FATFLG ;CLEAR FATAL ERROR FLAG 
CLR KTFLG ;HOLD OFF KTii 

MOV #EPRT1,EPRTSW ;PRIMARY ERROR MESSAGE 






MOV @TST32ID,RO 
JSR PC ,TSTSETUP 
#1 ,LOOPCNT 
T32CNT 


sASCII MESSAGE TO IDENTIFY TEST 
sD0 INITIAL TEST SETUP 

sPERFORM 1 ITERATIONS 

sCLEAR TAPE RECORD COUNTER 









CHECK FOR 1ST PASS, IF 1ST PASS PRINT FAULT LIGHT MESSAGE 
ELSE SKIP MESSAGE 


TST FLLTSW 
5$ 


INC FLLTSW 
PRINTX @FAULTM 





sCHECK FAULT SWITCH 

sBR, IF NOT 1ST PASS 

sIT IS 1ST PASS, SET SW FOR LATER 
s“THIS TEST MAY ILLUMINATE FAULT LIGHT” 
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TEST 4: Erese And Operation Incomplete SEQ 0170 

046726 062706 000004 ADD 04,5° 

€384 046732 53: 

6385 

6386 

6387 3° 

6388 3 

6389 sTEST 4, SUBTEST 1 

6390 F) 

6391 3 

6392 sVERIFIES THAT A Erase And Operation Incomplete COMMAND ISSUED WHILE 

6393 sTHE TAPE IS POSITIONED AT BOT CAUSES FUNCTION REJECT 

6394 s TERMINATION, WITH THE NON-EXECUTABLE FUNCTION (NEF) 

6395 sERROR BIT SET. 

6396 ry 

6397 A 

6398 s- 

€399 

6400 046732 T32L00P: 

6401 Fy 

6402 3 

6403 3- 

6404 046732 BGNSUB 3>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
046732 74.1: 
046732 104402 TRAP CsBSuUB 

6405 046734 004737 052632 JSR PC, T32REST sSET COMMAND PACKET 

6406 046740 004737 052724 JSR PC, T32RT2]) sSET UP UTHER COMMAND PACKET 

6407 046744 004737 052754 JSR PC, T32RTS ;SET UP OTHER COMMAND PACKET 

6408 046750 012737 176750 051344 MOV 465000. , T32DLY ;SET UP DELAY COUNTER 

6409 046756 004737 016650 10$: JSR PC .SOF INIT 300 INITIALIZE ON CONTROLLER 

6410 046762 103426 BcS 20$ ;B8R IF INIT WAS OK 

6411 046764 DELAY 250 sDELAY ABOUT .25 SEC 
046764 012727 000250 MOV #250,(PC)+ 
046770 000000 -WORD 0 
046772 013727 002116 MOV LSDLY,(PC)+ 
046776 000000 -WORD 0 
047000 005367 177772 DEC -6(PC) 
047004 001375 BNE .-4 
047006 005367 177756 DEC -22(¢PC) 
047012 001367 BNE --20 

6412 047014 005337 051344 DEC T32DLY sBUMP COUNTER 

6413 047020 001356 BNE 10$ 3BR, IF COUNTER NOT DONE 

6414 047022 004737 020104 JSR PC .FATCHK sINC AND CHECK FOR MORE THAN 25 ERRORS 

6418 047026 010001 MOV RO,R1 sCONTENTS OF TSSR REGISTER 

6419 047030 ERRDF ERRNO,SFIERR,SFIMSG sFATAL ERROR TSSR WAS NOT OK 
047030 104455 TRAP CSEROF 
047032 000621 -WORD 401 
047034 003554 «WORD SFIERR 
047036 011666 «WORD SFIMSG 

6420 047040 208: 

6421 047040 012704 051150 MOV #T32PACKET ,R4 sSUBROUTINE NEEDS PACKET ADDRESS 

6422 047044 004737 010332 JSR PC ,WRTCHR sISSVE WRITE CHARACTERISTICS 

6423 047050 103407 Bcs 25% ;BR, IF COMMAND ISSUED OK 

6424 047052 004737 020104 JSR PC ,FATCHK sINC AND CHECK FOR MORE THAN 25 ERRORS 

6428 047056 010001 MOV RO,R1 sSAVE CONTENTS OF TSSR 

6429 047060 ERRHRD ERPNO,WRTMSG,SFIMSG sWRITE CHARACTERISTISC FAILED 
047060 104456 TRAP CSERHRD 


047062 000622 -WORD 402 
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047064 


000400 
003076 


177776 
017124 
000000 


020104 


001002 
010434 
000000 
020104 


051176 
000002 





27%: 


28%: 


30$: 
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RO,R4 

TSSR(RS),RI 

PC, FATCHK 

ERRNO, T32RWN,PKTSSR 


$256. ,R3 
FREE , T32WB 
#140005, T32PK3 
@T32PK3,R4 
R3,T32SZ 
R4, TSOBCRS) 
PC ,WAITF 
TSSR(RS),R1 
SR ,R2 
R1,R2 
28% 
PC .FATCHK 


ERRNO, T32WOC ,PKTSSR 


PC ,REWIND 
30$ 
TSSRCRS),R1 
RO,R4 


PC ,FATCHK 
ERRNO, TS2RWN,PKTSSR 


T32BFR+6,R1 





-WORD WRTMSG 

-WORD SFIMSG 
sLOOP IF SELECTED 

TRAP CsCLPi 


sCALL TAPE REWIND COMMAND 
sBR, IF NO PROBLEM 

sSET UP REWIND PACKET ADDRESS 

sGET TSSR CONTENTS 

sINC AND CHECK FOR MORE THAN 25 ERRORS 
sREWIND NOT ACCEPTED 


TRAP CSERHRD 

«WORD 403 

-WORD T32RWN 

-WORD PKTSSR 
sLOOP IF SELECTED 

TRAP CSCLP1 


sSTARTING RECORD SIZE 
sSTARTING WRITE BUFFER ADDRESS 
sWRITE DATA,CVC=1,ACK COMMAND 
sSET UP R4 WITH PACKET ADDRESS 
sSET UP RECORD SIZE IN PACKET 
sISSUE COMMAND 

sWAIT FOR SSR TO SET 

sGET TSSR CONTENTS 

sSET UP EXPECTED 

sARE THEY EQUAL 

sBR, IF OK 

sINC AND CHECK FOR MORE THAN 25 ERRORS 
sSOFT ERROR, DON'T CARE ABOUT WRITE 
sCOMMAND’S RESULTS - CHECKING THE 
sERASE COMMAND 

sTSSR INCORRECT AFTER -— DATA 


AP CSERSOFT 
-WORD 404 
-WORD T32WOC 
-WORD PKTSSR 
sLOOP IF SELECTED 
TRAP CsCLP1 


sBUMP RECORD COUNTER 

sAT MAX SIZE YET 

:BR, IF NOT AT END OF LOOP 

sCALL TAPE REWIND COMMAND 

;BR, IF NO PROBLEM 

sGET TSSR CONTENTS 

;SET UP REWIND PACKET ADDRESS 

sINC AND CHECK FOR MORE THAN 25 ERRORS 
sREWIND NOT ACCEPTED 


TRAP CSERHRD 

-WORD 405 

-WORD  T32RWN 

-WORD PKTSSR 
sLOOP IF SELECTED 

TRAP CSCLPi 


sPICK UP XSTO 

SET UP EXPECTED 
sSET BOT BIT IN EXPECTED 
sDOES EXP = REC'D 






SEQ 0171 








CZTKHB TK-25 FRT END FUNC 04 


TEST 4: Erese And Operation Incomplete 


6478 047274 
6479 047276 


6524 


6525 
6526 


104406 


140411 
051300 


051176 
000002 


020104 


003076 
140401 
000400 
051300 
177776 
017124 
000000 
100204 


020104 


051204 
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051300 


051302 
051300 
051306 


50$: 


553: 


180$: 


BEQ 
JSR 
ERRHRD 


ERRHRD 


CKLOOP 
MOV 


408 
PC ,FATCHK 
ERRNO, T32B0E ,EXPREC 


#140411, T32PK3 
@T32PK3,R4 


@SSR ,R2 
R1,R2 


50$ 
PC ,FATCHK 
ERRNO, T32ERA,PKTSSR 


T32BFR+6,R1 
Ri 


PC ,FATCHK 
ERRNO, T32B0E ,EXPREC 


FREE , T32R8 
#140401, T32PK3 
#256. ,132SZ 
#T32PK3,R4 
R4,TSDBCRS) 

PC ,WAITF 
TSSRCR5S),Ri 
#SSR!SC!BIT2,R2 


PC ,FATCHK 
ERRNO, T32TSA,PKTSSR 


T32B6FR+14,R1 


sBR, IF EQUAL (OK) 
sINC AND CHECK FOR MORE THAN 25 ERRORS 
sTAPE AT BOT AFTER ERASE 


TRAP CSERHRD 

-WORD 406 

«WORD T32B0E 

-WORD EXPREC 
sLOOP IF SELECTED 

TRAP CSsCLP1 


sERASE TAPE,CVC=1,ACK COMMAND 
sSET UP R4 WITH PACKET ADDRESS 
sISSUE COMMAND 

sWAIT FOR SSR TO SET 

sGET TSSR CONTENTS 

sSET UP EXPECTED 

sARE THEY EQUAL 

sBR, IF OK 

sINC AND CHECK FOR MORE THAN 25 ERRORS 
sTSSR INCORRECT AFTER sae + Sta 


CSERHRD 
-WORD 407 
-WORD T32ERA 
WORD PKTSSR 
sLOOP IF SELECTED 
TRAP CSCLP1 


sPICK UP XSTO 
sSET UP EXPECTED 
sSET BOT BIT IN EXPECTED 
sDOES EXP = REC'D 
sBR, IF EQUAL (OK) 
sINC AND CHECK FOR MORE THAN 25 ERRORS 
sTAPE NOT AT BOT AFTER REWIND 
TRAP CSERHRD 


-WORD 408 

-WORD T32B0E 

-WORD  EXPREC 
;LOOP IF SELECTED 

TRAP CSCLP1 


sADDRESS OF BUFFER 

sREAD REVERSE,ACK,CVC=1 COMMAND 
sSET UP THE SIZE OF RECORD 

sSET UP R4 WITH PACKET ADDRESS 
sISSUE COMMAND 

sWAIT FOR SSR TO SET 

GET TSSR CONTENTS 

sSET UP EXPECTED TAPE STATUS ALERT 
sARE THEY EQUAL 

sBR, IF OK 

sINC AND CHECK FOR MORE THAN 25 ERRORS 
;TSSR INCORRECT AFTER = DATA 


AP CSERHRD 
-WORD 409 
-WORD T32TSA 
-WORD PKTSSR 
sLOOP IF SELECTED 
TRAP CSCLP1 


sGET XST3 STATUS WORD 


SEQ 0172 








CZTKHB TK-25 FRT END FUNC 04 


TEST 4: Erase 





And Operation Incomplete 
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1908: 





MOV R1,R2 sSET UP EXPECTED 

BIS *BITG,R2 sSET THE RIB BIT 

CMP R1,R2 sARE THEY EQUAL 

BEQ 1908 sBR, IF EQUAL (GOOD) 

JSR PC ,FATCHK sINC AND CHECK FOR MORE THAN 25 ERRORS 


ERRHRD ERRNO, T32RIB,EXPREC sRIB SHOULD BE SET 
TRAP CSERHRD 


-WORD 41 

-WORD T32RIB 

WORD EXPREC 
ENDSUB 3>2>>>>>>>>>> END SUBTEST >>>>>>>> > >> 


L10054: 
TRAP CSESUB 









SEQ 0173 








CZTKHB TK-25 FRT END FUNC 64 
TEST 4: Erase And Operation Incomplete 


6573 047550 
047550 
047550 

6574 047552 

6575 047556 

6576 047562 

6577 047566 

6578 047572 

6579 047574 

6583 047600 

6584 047602 
047602 
047604 
047606 
047610 

6585 047612 

6586 047612 

6587 047616 

6588 047622 

6589 047624 

6593 047630 

6594 047632 
047632 


104402 
004737 
004737 
004737 
004737 
103407 
004737 
010001 


104455 
000633 
003554 
011666 


012704 
004737 
103407 
004737 
010001 


104456 


052632 
052724 
052754 
016650 


020104 


051150 
010332 


020104 
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3¢ 

; 

sTEST 4, SUBTEST 2 

VERIFIES THAT AN ERASE COMMAND EXECUTED WHEN THE TAPE IS NOT 
POSITIONED AT BOT OPERATES PROPERLY AND DOES NOT CORRUPT 
PREVIOUS TAPE RECORDS. THE TEST SEQUENCE IS: 


1. THE TAPE IS FIRST REWOUND, SEVERAL TEST RECORDS ARE 
WRITTEN, AND THE TAPE IS REWOUND AGAIN. 


2. A SPACE RECORDS FORWARD COMMAND IS ISSUED TO MOVE THE 
} a Bh ang OF BOT AND SKIP OVER THE FIRST SEVERAL 


3. AN ERASE COMMAND IS ISSUED, WHICH SHOULD ERASE A NUMBER 
OF THE TEST RECORDS. 


4. NORMAL TERMINATION IS VERIFIED AND STATUS IS CHECKED.: 


5S. A READ REVERSE COMMAND IS ISSUED. IT IS VERIFIED THAT 
NORMAL TERMINATION IS ACCOMPLISHED AND THAT THE DATA 
TRANSFERRED CORRESPONDS TO THAT FOR THE EXPECTED 
RECORD. THIS DEMONSTRATES THAT NO DATA WAS ENCOUNTERED 
IN THE AREA ERASED BY THE ERASE COMMAND, AND THAT THE 
PREVIOUS RECORD WAS NOT CORRUPTED. 


BGNSUB 3>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
74.2: 
TRAP C$BSUB 
JSR PC, T32REST ;SET COMMAND PACKET 
JSR PC, T32RT2 ;SET UP OTHER COMMAND PACKET 
JSR PC, T32RT3 3SET UP OTHER COMMAND PACKET 
JSR PC ,SOFINIT 300 INITIALIZE ON CONTROLLER 
BCS 20$ :BR IF INIT WAS OK 
JSR PC ,FATCHK sINC AND CHECK FOR MORE THAN 25 ERRORS 


MO RO,R1 sCONTENTS OF TSSR REGISTER 

ERRDF ERRNO, SFIERR,SFIMSG sFATAL ERROR TSSR WAS NOT OK 
i CSERDF 
W 


a 411 
-WORD SFIERR 
-WORD SFIMSG 
20%: 

MOV #T32PACKET ,R4 ;SUBROUTINE NEEDS PACKET ADDRESS 

JSR PC ,WRTCHR sISSUE WRITE CHARACTERISTICS 

BCS 23$ ;BR, IF COMMAND ISSUED OK 

JSR PC ,FATCHK sINC AND CHECK FOR MORE THAN 25 ERRORS 

RO,R ;SAVE CONTENTS OF TSSR 


MOV 0,R1 
ERRHRD ERRNO,WRTMSG ,SFIMSG sWRITE CHARACTERISTISC FAILED 
TRAP CSERHRD 


SEQ 0174 





CZTKHB TK-25 FRT END FUNC 04 


TEST 4: 


6595 
6596 


6603 


Erase 


047634 
047636 
047640 
047642 
047642 
047644 
047650 
047652 
047654 


059036 








And Operation Incomplete 


000634 
004760 
011666 


104406 
004737 
103407 
010004 
004737 


104456 
000635 
051530 
011700 


104406 
013701 
010102 
052702 


051346 
016350 


104406 
012703 
010300 
004737 
013737 
012737 
012704 
010300 
004737 
010337 
010465 
004737 
016501 
012702 
020102 
001406 
004737 


104457 
000637 
052366 
011700 


104406 
005723 
020327 


010434 


020104 


051176 
000002 


020104 


000144 


20376 
003076 
140005 
051300 


020376 
051306 


000156 





23%: 


30$: 


40$: 


051302 
051300 65%: 


80$: 


ERRSOF T 


CKLOOP 


TST 
CMP 
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PC ,REWIND 
30$ 


RO,R4 
PC ,FATCHK 
ERRNO, T32RWN,PKTSSR 


T32BFR+6,R1 
R1,R2 
#BIT1,R2 


40$ 
PC ,FATCHK 
ERRNO, T32B0T ,EXPREC 


#100. ,R3 
R3,RO 

PC ,FILLMEM 
FREE, T32WB 
#140005, T32PK3 
#T32PK3,R4 
R3,RO 
PC,FILLMEM 
R3,732SZ 
R4, TSOBCRS) 
PC ,WAITF 
TSSRCRS),R1 
#SSR,R2 


PC ,FATCHK 


ERRNO, T32WDC ,PKTSSR 


(R3)+ 
R3,#110. 





-WORD 412 
-WORD WRTMSG 
-WORD SFIMSG 
sLOOP IF SELECTED 
CsCLP1 


TRAP 
sCALL TAPE REWIND COMMAND 
sBR, IF NO PROBLEM 
sSET UP REWIND PACKET ADDRESS 
sINC AND CHECK FOR MORE THAN 25 ERRORS 
sREWIND NOT ACCEPTED 


TRAP CSERHRD 

-WORD 413 

«WORD T32RWN 

-WORD PKTSSR 
sLOOP IF SELECTED 

TRAP CSCLP1 


sPICK UP XSTO 

sSET UP EXPECTED 

sSET BOT BIT IN EXPECTED 

sD0ES EXP = REC'D 

sBR, IF EQUAL (OK) 

sINC AND CHECK FOR MORE THAN 25 ERRORS 


sTAPE NOT AT PRG SE RENINO 


CSERHRD 
-WORD 414 
-WORD T32B0T 
-WORD EXPREC 
sLOOP IF SELECTED 
TRAP CSCLP1 


sSTARTING RECORD SIZE 

sSET UP MEMORY FILL 

;CALL MEMORY FILLER 

sSTARTING WRITE BUFFER ADDRESS 
sWRITE DATA,CVC=1,ACK COMMAND 
s;SET UP R4 WITH PACKET ADDRESS 
sSET PATTERN IN CORRECT REGISTER 
sFILL MEMORY WITH RECORD SIZE 
sSET UP RECORD SIZE IN PACKET 
sISSUE COMMAND 

sWAIT FOR SSR TO SET 

sGET TSSR CONTENTS 

sSET UP EXPECTED 

sARE THEY EQUAL 

sBR, IF OK 

sINC AND CHECK FOR MORE THAN 25 ERRORS 
sSOFT ERROR, DON'T CARE ABOUT WRITE 
sCOMMAND'S RESULTS - CHECKING THE 
sERASE COMMAND 

sTSSR INCORRECT AFTER wa 2 DATA 


AP CSERSOFT 
-WORD 415 
-WORD T32WOC 
-WORD PKTSSR 
;LOOP IF SELECTED 
CSCLP1 


TRAP 
sBUMP RECORD SIZE COUNTER 
sAT 160 SIZE YET 


























SEQ 0175 
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001341 
004737 


104456 


050272 000643 


010434 


020104 


051176 
000002 


020104 


000001 
010134 
140411 
051300 
177776 
017124 
000000 
000200 


020104 


003076 
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051300 


051302 
051300 
051306 


230$: 


240%: 


265$: 


2808: 


JSR 
ERRHRD 


CKLOOP 


JS 
ERRHRD 


CKLOOP 


ERRHRD 





65$ 

PC ,REWIND 

230$ 

RO,R1 

PC ,FATCHK 

ERRNO, T32RWN ,EXPREC 


T32BFR+6,R1 
R1,R2 
#BIT1,R2 
R1,R2 

240$ 


PC ,FATCHK 
ERRNO, T32B0T ,EXPREC 


#1,R3 

PC ,SPACE 
#140411, T32PK3 
#T32PK3,R4 
R4,TSDBCRS) 

PC ,WAITF 
TSSRCRS),R1 
#SSR ,R2 

R1,R2 

280$ 

PC ,FATCHK 
ERRNO, T32ERA,PKTSSR 


FREE , T32R8 
#140401, T32PK3 
#100. ,T32SZ 
#T32PK3,R4 

R4, TSDBCRS) 

PC ,WAITF 
TSSRCRS),R1 
#SSR ,R2 

R1,R2 

290$ 

PC ,FATCHK 
ERRNO, T32TSA,PKTSSR 


sBR, IF MORE RECORDS TO WRITE 

sCALL TAPE REWIND COMMAND 

;BR, IF NO PROBLEM 

sSAVE TSSR 

sINC AND CHECK FOR MORE THAN 25 ERRORS 
sREWIND NOT ACCEPTED 


TRAP CSERHRD 

-WORD 416 

«WORD T3.R2WN 

-WORD EXPREC 
sLOOP IF SELECTED 

TRAP CSCLP1 


sPICK UP XSTO 
sSET UP EXPECTED 
sSET BOT BIT IN EXPECTED 
sDOES EXP = REC'D 
sBR, IF EQUAL (OK) 
sINC AND CHECK FOR MORE THAN 25 ERRORS 
sTAPE NOT AT BOT AFTER REWIND 
TRAP CSERHRD 


-WORD 417 

-WORD T32B0T 

-WORD EXPREC 
sLOOP IF SELECTED 

TRAP CSCLP1 


sSET UP FOR SPACE COMMAND 
sISSUE SPACE COMMAND 1 FORWARD 
sERASE DATA,ACK COMMAND 

;SET UP R4& WITH PACKET ADDRESS 
sISSUE COMMAND 

sWAIT FOR SSR TO SET 

sGET TSSR CONTENTS 

SET UP EXPECTED 

sARE THEY EQUAL 

sBR, IF OK 

sINC AND CHECK FOR MORE THAN 25 ERRORS 
sTSSR INCORRECT AFTER -— DATA 


RAP CSERHRD 

-WORD 418 

-WORD T32ERA 

-WORD PKTSSR 
;LOOP IF SELECTED 

TRAP CSCLP1 


sADDRESS OF BUFFER 
sREAD REVERSE, ACK,CVC=1 COMMAND 
sSET UP THE SIZE OF RECORD 
sSET UP R4 WITH PACKET ADDRESS 
sISSUE COMMAND 
sWAIT FOR SSR TO SET 
sGET TSSR CONTENTS 
sSET UP EXPECTED TAPE STATUS ALERT 
sARE THEY EQUAL 
sBR, IF OK 
sINC AND CHECK FOR MORE THAN 25 ERRORS 
sTSSR INCORRECT AFTER READ DATA 

TRAP CSERHRD 
-WORD 419 









SEQ 0176 
































CZTKHB TK-25 FRT END FUNC 04 
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TEST 4: Erase And Operation Incomplete SEQ 0177 
050274 052141 «WORD T32TSA 
050276 011700 «WORD PKTSSR 

6694 050300 2903: CKLOOP ;LOOP IF SELECTED 
050300 104406 TRAP CSCLP1 
6695 050302 017701 132570 MOV OFREE,R1 ;GET DATA READ 
6696 050306 012702 000144 MOV #100. ,R2 ;SHOULD BE 100 
6697 050312 020102 CMP R1,R2 ;CHECK'EM OUT 
6698 050314 001406 BEQ 300$ ;BR, IF OK 
6699 050316 004737 020104 JSR PC ,FATCHK sINC AND CHECK FOR MORE THAN 25 ERRORS 
6703 050322 ERRHRD ERRNO, T32ECF ,EXPREC sERASE COMMAND DION’ T WORK 
050322 104456 TRAP CSERHRD 
050324 000644 «WORD 420 
050326 052305 -WORD T32ECF 
050330 016350 «WORD EXPREC 
6704 050332 300$: CKLOOP ;LOOP IF SELECTED 
050332 104406 TRAP CS$CLP1L 
6705 050334 330$: 
6706 050334 ENDSUB 3>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 
050334 L10055: 
050334 104403 TRAP CsESUB 
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TEST 4: Erase And Operation Incomplete SEQ 0178 


6708 i* 
6709 ; 
6710 sTEST 4, SUBTEST 3 


6711 
6712 VERIFIES THAT THE OTHER TAPE 





; 
3 
6713 : MOTION COMMANDS EXECUTED WHEN THE TAPE IS BLANK 
6714 3 RESULT IN UNRECOVERABLE ERROR TERMINATION AND OPERATION 
the F INCOMPLETE STATUS. THE FOLLOWING TEST SEQUENCE IS EXECUTED: 
. 
dh F 1. THE TAPE IS REWOUND. 
1 ; 
6719 ; 2. ERASE COMMANDS ARE ISSUED SUCH THAT THE TAPE IS POSITIONED 
6720 ; ABOUT IN THE MIDDLE OF THE FIRST TRACK. 
6721 3 
6722 8 
6723 3 
6724 $ 3. IT IS VERIFIED THAT EACH OF THE FOLLOWING COMMANDS 
6725 ; CISSUVED IN THE ORDER GIVEN) RESULTS IN UNRECOVERABLE 
6726 ; ERROR TERMINATION WITH OPI=1: SPACE RECORDS REVERSE 
6727 F SKIP TAPE MARKS REVERSE READ REVERSE REREAD PREVIOUS 
6728 : COPP=0) REREAD PREVIOUS (OPP=1) REREAD NEXT (OPP=1) 
6729 3 REREAD NEXT COPP=0) READ NEXT SKIP TAPE MARKS REVERSE 
6730 ; SKIP TAPE MARKS FORWARD SPACE RECORDS FORWARD WRITE 
6731 F DATA RETRY 
6732 3 
6733 3 
6734 3 
6735 3 
6736 s- 
6737 050336 BGNSUB 3>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
050336 74.3: 
050336 104402 TRAP £$BSUB 
6738 050340 004737 052724 9$: JSR PC, T32RT2] ;SET UP OTHER COMMAND PACKET 
6739 050344 004737 052632 JSR PC, T32REST ;SET COMMAND PACKET 
6740 050350 004737 052754 JSR PC, T32RT3 ;SET UP OTHER COMMAND PSCKET 
6741 050354 012737 176750 051344 MOV #65000. , T32DLY ;SET UP DELAY COUNTER 
6742 050362 004737 016650 10$: JSR PC ,SOFINIT :D0 INITIALIZE ON CONTROLLER 
6743 050366 103426 bcs 20$ ;BR IF INIT WAS OK 
6744 050370 ¥) DELAY 250 ;DELAY ABOUT .25 SEC 
050370 012727 000250 MOV #250,(CPC)+ 
050374 000000 -WORD 0 
050376 013727 002116 MOV LSDLY,CPC)+ 
050402 000000 -WORD 0 
050404 005367 177772 DEC -6(PC) 
050410 001375 BNE .-4 
050412 005367 177756 DEC -22(PC) 
050416 001367 ; BNE .-20 
6745 050420 005337 051344 DEC T32DLY ;BUMP COUNTER 
6746 050424 001356 BNE 10$ ; ;BR, IF COUNTER NOT DONE 
6747 050426 004737 020104 JSR PC ,FATCHK sINC AND CHECK FOR MORE THAN 25 ERRORS 
6751 050432 010001 MOV RO,R1 s;CONTENTS OF TSSR REGISTER 
6752 050434 ERRDF  ERRNO,SFIERR,SFIMSG sFATAL ERROR TSSR WAS NOT OK 
050434 104455 
050436 000645 
050440 003554 
050442 011666 
6753 050444 20$: 





CZTKHB TK-25 FRT END FUNC 04 


6788 050570 
6789 050576 
6790 050602 
6791 050606 
6792 050612 
6793 050616 
6794 050622 
6795 050624 
6796 050626 
6797 050630 
6801 050634 

050634 

050636 

050640 

050642 
6802 050644 
6803 050650 


be Re ee a a 


051346 
016350 


104406 
012703 


012737 
012704 
010465 
004737 
016501 
012702 
020102 
001407 
010102 
004737 


104456 
000651 
052366 
011700 
162703 
001401 


051150 
010332 


020104 


010434 
000000 
020104 


051176 
000002 


020104 


000454 
140411 


000001 
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23%: 


40$: 


051300 65%: 


708: 


JSR 


JSR 


@T32PACKET ,R4 
PC ,WRTCHR 

23% 

PC ,FATCHK 


RO,R1 
ERRNO, WRTMSG , SFIMSG 


PC ,REWIND 
30$ 
TSSRCRS),R1L 
RO,R4 


PC {FATCHK 
ERRNO, T32RWN,PKTSSR 


T32BFR+6,R1 


PC ,FATCHK 
ERRNO, T32B0T ,EXPREC 


#300. ,R3 


#140411, T32PK3 
@T32PK3,R4 
R4,TSDBCRS) 

PC ,WAITF 
TSSRCRS).R1 
#SSR,R2 

R1,R2 

70$ 

R1,R2 

PC ,FATCHK 
ERRNO, TS2WOC ,PKTSSR 





Page 106-1 


SEQ 0179 


sSUBROUTINE NEEDS PACKET ADDRESS 
sISSVE WRITE CHARACTERISTICS 
sBR, IF COMMAND ISSUED OK 

sINC AND CHECK FOR MORE THAN 25° ERRORS 
sSAVE CONTENTS OF TSSR 

sWRITE CHARACTERISTISC doy 


CSERHRD 
-WORD 422 
-WORD WRTMSG 
-WORD SFIMSG 
;LOOP IF SELECTED 
CsCLP1 


TRAP 
s;CALL TAPE REWIND COMMAND 
sBR, IF NO PROBLEM 
sGET TSSR CONTENTS 
sGET PACKET ADDRESS 
sINC AND CHECK FOR MORE THAN 25 ERRORS 
sREWIND NOT ACCEPTED 


TRAP CSERHRD 

-WORD 423 

-WORD T32RWN 

-WORD PKTSSR 
sLOOP IF SELECTED 

TRAP CSCLP1 


sPICK UP XSTO 

sSET UP EXPECTED 

;SET BOT BIT IN EXPECTED 
;DOES EXP = REC‘D 

;BR, IF EQUAL (OK) 

sINC AND CHECK FOR MORE THAN 25 ERRORS 
;TAPE NOT AT BOT AFTER — 


AP CSERHRD 
-WORD 424 
-WORD T32B0T 
-WORD EXPREC 


;LOOP IF SELECTED 
TRAP CsCLP1 
3#@ OF ERASES SO TAPE IS HALF 1ST TRACK 


sERASE DATA,CVC=1,ACK COMMAND 
;SET UP R4 WITH PACKET ADDRESS 
sISSUE COMMAND 
sWAIT FOR SSR TO SET 
;GET TSSR CONTENTS 
;SET UP EXPECTED 
;ARE THEY EQUAL 
3;BR, IF OK 
:SAVE ORIG TSSR 
;INC AND CHECK FOR MORE THAN 25 ERRORS 
:TSSR INCORRECT AFTER WRITE DATA 
TRAP CSERHRD 
4 


- WORD 25 
-WORD T32WOC 
WORD PKTSSR 


;BUMP DOWN TO NEXT VALUE. 
;BR, IF 300 ERASES WRITTEN 








CZTKHB TK-25 FRT END FUNC 04 


000746 
104406 
012703 


013737 
011337 


000000 
002116 


177772 
177756 
051344 
020104 


051204 
000100 


020104 


177777 


051070 010434 


051074 
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280$: 


ERRHRD 


290$: CKLOOP 


TST 
CMP 
BNE 

F REWIND 


JSR 
BCS 


65$ 


@T32CMD,R3 
FREE , T32RB 
(R3), T32PK3 
@T32PK3,R4 
#177777,RO0 
PC .FILLMEM 
#100. ,T32SZ 
R4, TSOBCRS) 
#10. ,T32DLY 
PC ,WAITF 
TSSRCRS) RI 
eee 
280$ 

250 


T320LY 

2708 

PC ,FATCHK 

ERRNO, T32ECF ,PKTSSR 


T32BFR+14,R1 
R1,R2 


*BIT6,R2 

R1,R2 

290% 

PC ,FATCHK 

ERRNO, T320PI ,EXPREC 


(R3)+ 
(R3),177777 
2653 

THE ORIVE 


PC ,REWIND 
226% 


sKEEP GOING 
;LOOP IF SELECTED 


TRAP 
sSTARTING RECORD SIZE 
sSTARTING READ BUFFER ADDRESS 
sREAD DATA,ACK COMMAND 
sSET UP R4 WITH PACKET ADDRESS 


sSET PATTERN IN CORRECT REGISTER 


sFILL MEMORY WITH ALL ONES 
sSET UP RECORD SIZE IN PACKET 
sISSUE COMMAND 

;SET UP DELAY COUNTER 

sWAIT FOR SSR TO SET 

;GET TSSR CONTENTS 

;SET UP EXPECTED 

sARE THEY EQUAL 

3BR, IF OK 

sDELAY FOR SSR TO BE SET 


sCOUNT DELAY ROUTINE DOWN 

3BR, IF DELAY HAS NOT ENDED 
sINC AND CHECK FOR MORE THAN 25 
sTSSR INCORRECT AFTER -_ DATA 


sLOOP IF SELECTED 


sPICK UP XST3 

sSET UP EXPECTED 

sSET OPI BIT IN EXPECTED 

sIS OPI BIT SET 

sBR, IF BIT IS SET 

sINC AND CHECK FOR MORE THAN 25 
OPI BIT NOT SET —_ 


«WORD 
- WORD 
- WORD 


TRAP 


sLOOP IF SELECTED 


sBUMP COMMAND POINTER 
sAT END OF TABLE YET 
sBR, KEEP TRYING COMMANDS 


sCALL TAPE REWIND COMMAND 
3BR, IF NO PROBLEM 


CsCLP1 


a 
amet aati 
-6(PC) 

--4 
-22(PC) 
--20 
ERRORS 
CSERHRD 
426 

T32ECF 
PKTSSR 


CsCLP1 


ERRORS 


CSERHRD 
427 
T320PI 
EXPREC 


CscCLPi 





SEQ 0180 





CZTKHB TK-25 FRT END FUNC 04 


TEST 4: Erase 


es 


6848 
6849 
6850 
6854 


051076 
051100 
051104 


051122 
051122 








And Operation Incomplete 


104403 


000137 


104432 
001636 


017360 
046732 





MOV RO,R4 

MOV TSSRCRS),R1 

JSR PC ,.FATCHK 

ERRHRD ERRNO, T32RWN,PKTSSR 


226%: CKLOOP 


291$: ENDSUB 


JSR PC, TSTLOOP 
163$ 


JMP T32L00P 
163%: EXIT TST 
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sSET UP REWIND PACKET ADDRESS 
sGET TSSR CONTENTS 
sINC_AND CHECK FOR MORE THAN 25 ERRORS 
sREWIND NOT ACCEPTED 
TRAP + 


.WORD 

-WORD T32RWN 

-WORD PKTSSR 
sLOOP IF SELECTED 

TRAP CsCLP1 


3>>>>>>>>>>>> END SUBTEST >>>>>>>> >> >> 
L10056: 
TRAP CsESUB 


:00 WE NEED TG ITERATE TEST 
3BR, IF NO LOOP REQUIRED 
sEXECUTE AGAIN 
sALL DONE THIS TEST 

TRAP CsExIT 
- WORD 





L10053-. 














SEQ 0181 
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TEST 4: Erase And Operation Incomplete 


a 


177777 


000000 
000000 
000000 


3¢ 
sLOCAL STORAGE FOR THIS TEST 


-BL 
T32PACKET: 


T32DATA: 


T32BFR: . 


j 
sWRITE SUBSYSTEM MEMORY COMMAND PACKET 
; 


-BLKB 


T32PK2: 


T32PK3: — 


T32RB: 
T32WB: 


T32SZ: 


-EVEN 
sTAPE MOTION PACKET COMMAND VALUES 


T32CMD: 


b 

T32CNT: . 
T32CNU: . 
T32DLY: . 


10-< . - TUV2AE7> 


100004 
T32DATA 
0 

10. 


T32BFR 
0 


20. 
0 
2s. 


10-< ,- TUV2AE7> 
100006 

0 

0 

6. 
10-< , - TUV2AE7> 
100005 

FREE 

0 

0 


140410 
141410 
140401 
141001 
161401 
161001 
141401 
140001 
141410 
141010 
141005 
177777 


0 
t9) 
0 





sCOMMAND PACKET FOR TEST 


sWRITE CHARACTERISTICS COMMAND, WITH , ACK 
sADDRESS OF CHARACTERISTICS BLOCK 


sSTARTING VALUE OF BLOCK SIZE 
sCHARACTERISTICS DATA BLOCK 
sADDRESS OF MESSAGE BUFFER 


sLENGTH OF MESSAGE BUFFER 
sMESSAGE BUFFER 


sWRITE SUB SYS MEM COMMAND, 
sADDRESS OF SELECT BLOCK DATA 


sSIZE OF DATA PACKET 


sREREAD COMMAND, AND ACK 
sADDRESS OF WRITE BUFFER 
sSIZE OF BUFFER (EXTENT) 


sSPACE RECORDS REVERSE 
sSKIP TAPE MARKS REVERSE 
sREAD REVERSE 

sREREAD PREVIOUS (OPP=0) 
sREREAD NEXT COPP=1) 
sREREAD PREVIOUS (OPP=1) 
sREREAD NEXT (OPP=0) 
sREAD NEXT 

sSKIP TAPE MARKS REVERSE 
sSKIP RECORDS FORWARD 
sWRITE DATA RETRY 

sEND OF DATA 


sTAPE TIMER COUNTER STORAGE AREA 
sTAPE TIMER COUNTER STORAGE AREA 


sDELAY COUNTER 





SEQ 0182 
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6933 051441 
6934 051530 
6935 051577 
6936 051646 
6937 051713 


6975 

6976 052724 
6977 052724 
6978 052730 
6979 052734 
6980 052740 
6981 052742 
6982 052744 


012701 


012701 
012721 
005021 
005021 
012721 





051150 
100004 
051160 


000012 
051170 


000024 
000000 
000030 
177777 
000000 
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3° 
sLOCAL TEXT MESSAGES FOR TEST 


T32B0T: 


4 


-ASCIZ 


‘Tepe Not At BOT After REWIND Command (BOT Not Set In xSTO)’ 
‘Tepe Stetus Alert During Erese To EOT, But EOT Not Set’ 
‘Rewind (POSITION) Commend Not Accepted’ 

*TSSR Init. Feiled After REREAD COMMAND’ 

‘TSSR Not Correct After ERASE Command’ 

‘TSBA Not Correct After REREAD DATA Commend’ 

‘READ REVERSE, After ERASE From BOT, Feiled To Set RIB In XST3’ 
‘TSSR Not Correct After SPACE RECORDS Command’ 

*TSSR Not Correct After READ REVERSE Into BOT’ 

‘BOT (XSTO) Still Set After Erase From Tape’’s BOT Marker’ 
"ERASE Failed To Clear Tape (Erase) Tape Properly’ 


‘TSSR Not Correct After ERASE Commend’ 

‘OPI Bit (XST3) Feiled To Set’ 

-ASCIZ ‘Erase And Operation Incomplete’ 

‘SNSA This Test May Illuminate The Drive Fault Light, Not An Error’ 


;ROUTINE TO RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUES 
sWRITE SUBSYSTEM MEMORY COMMAND 


T32REST: 


051170 64$: 


T32RT2: 


sSAVE THE REGISTERS 


ST32PACKET ,R1 sSTART OF THE PACKET 
#100004, (R1)+ sWRITE SUBSYSTEM MEM. WITH ACK, 
ST32DATA,CR1)+ sADDRESS OF CHARAISTICS DATA BLOCK 
CR1)> sEXTENDED ADDRESS 
#10. ,CR1)+ ;SIZE OF DATA BLOCK IN BYTES 
1 waatcspatct sADDRESS OF MESSAGE BUFFER 
+ me ;LENGTH OF MESSAGE BUFFER 
R1i)- 
#0,(R1) ;SELECT DRIVE ZERO 
#24. ,R2 sNUMBER OF LOCATIONS TO BE CLEARED 
0177777, T32BFRCR2) sALL ONES TO MESSAGE BUFFER 
-(R2) sNEXT LOCATION 
#0 ,R2 sAT END OF LOOP YET 
643 sKEEP GOING UNTIL DONE 
PC sRETURN 
sSAVE THE REGISTERS 
#T32PK2,R1 sSTART OF THE PACKET 
#100006, (R1)-+ ;WRITE SUBSYSTEM MEM. WITH ACK, 
(R1)+ sADDRESS OF DATA BLOCK 
(R1)-> sEXTENDED ADDRESS 
#6.,(R1)+ ;SIZE OF DATA BLOCK IN BYTES 


SEQ 0183 
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TEST 4: Erase And Operation Incomplete 
6983 052750 005021 CLR (R1)+ 
6984 052752 000207 RTS eC RETURN 
6985 052754 T32RT3: 
6986 052754 SAVREG sSAVE REGISTERS 
6987 052760 012701 051300 MOV @T32PK3,R1 sSET UP POINTER ADDRESS 
6988 052764 005021 CLR (Ride sCOMMAND SPACE 
6989 052766 005021 CLR (Ride sADDRESS OF DATA BLOCK 
6990 052770 005021 CLR (R1)« sEXTENDED ADDRESS 
6991 052772 005011 CLR (R1) sSIZE OF DATA TRANSFER BLOCK 
6992 052774 000207 RTS Pc sRETURN 
6993 052776 ENDTST 
052776 L10053: 
052776 104401 TRAP CSETST 
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TEST 5S: OPERATIONS AT EOT SEQ 0185 
6997 -SBTTL TEST 5S: OPERATIONS AT EOT 
6998 3° 
6999 3 
7000 sTHIS TEST VERIFIES PROPER OPERATION OF THE WRITE DATA RETRY 
7001 sCOMMAND (SPACE REVERSE, ERASE, WRITE DATA) 
7002 3 
7003 3 
ross sTHE TEST CONSISTS OF THE FOLLOWING 1 SUBTEST 
3 
7006 3 
7007 3 
7008 3- 
7009 053000 BGNTST 
053000 TS:: 

7010 053000 005037 002172 CLR FATFLG ;CLEAR FATAL ERROR FLAG 
7013 053004 005037 003104 CLR KTFLG sHOLD OFF KTI1 
7012 053010 012737 005676 002150 MOV GEPRT1, EPRTSW sPRIMARY ERROR MESSAGE 
7017 053016 012700 057224 MOV #TST34ID,RO sASCII MESSAGE TO IDENTIFY TEST 
7018 053022 004737 017412 JSR PC. TSTSETUP 300 INITIAL TEST SETUP 
7019 053026 012737 00°001 002166 MOV 41,LOOPCNT sPERFORM 1 ITERATIONS 
fooe 053034 005037 055562 CLR T34CNT ;CLEAR TAPE RECORD COUNTER 

1 3* 
7022 Fy 
7023 sTEST 5, SUBTEST 1 
7024 3 
7025 3 
7026 $ THIS TEST VERIFIES THAT THE EOT STATUS IS HANDLED PROPERLY BY 
7027 3 THE VARIOUS TAPE MOTION COMMANDS. THE FOLLOWING TEST SEQUENCE 
7028 r IS PERFORMED: 
7029 F] 
core 8 1. THE TAPE IS REWOUND. 
031 3 
7032 3 2. WRITE DATA COMMANDS ARE REPEATEDLY ISSUED UNTIL TAPE 
7033 F STATUS ALERT TERMINATION IS SEEN WITH E0T=1. ERRORS 
7034 8 OTHER THAN OCCASIONAL CORRECTABLE OR UNCORRECTABLE DATA 
7035 3 ERRORS CAUSE A FATAL ERROR REPORT. RECORDS WITH DATA 
wore 3 ERRORS ARE RETRIED, SO THE TAPE ENDS UP WITH GOOD DATA. 
70 ; 
7038 3 3. ANOTHER WRITE DATA COMMAND IS ISSUED, AND IT IS CHECKED 
7039 ; THAT TAPE STATUS ALERT TERMINATION OCCURS, WITH EOT=1. 
7040 3 
7041 3 4. A WRITE TAPE MARK COMMAND IS ISSUED, AND IT IS CHECKED 
rose ; THAT TAPE STATUS ALERT TERMINATION OCCURS, WITH EOT=1. 
704 H 
7044 $ 5. A SKIP TAPE MARKS REVERSE COMMAND IS ISSUED, AND IT IS 
7045 PF CHECKED THAT TAPE STATUS ALERT TERMINATION OCCURS, WITH 
7046 3 EOT=1 AND TMK=1. 
7047 F 
7048 3 6. A SPACE RECORDS REVERSE COMMAND, WITH A RECORD COUNT OF 
7049 PF 1, IS ISSUED, AND IT IS CHECKED THAT TAPE STATUS ALERT 
7050 F TERMINATION OCCURS, WITH EOT=1 AND TMK=1. 
7051 F 
7052 3 7. A SPACE RECORDS REVERSE COMMAND, WITH A RECORD COUNT OF 
7053 3 1, IS ISSUED, AND IT IS CHECKED THAT NORMAL TERMINATION 
Hs of 3 OCCURS, WITH E0T=1. 
i?) F 
7056 3 8. A SPACE RECORDS FORWARD COMMAND, WITH A RECORD COUNT OF 
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TEST 5S: OPERATIONS AT EOT 


7083 
7084 053040 
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T34L00P: 


10. 


12. 


13. 





1, IS ISSUED, AND IT IS CHECKED THAT NORMAL TERMINATION 
OCCURS, WITH EOT=1. 


A READ REVERSE COMMAND IS ISSUED, AND IT IS CHECKED 
THAT NORMAL TERMINATION OCCURS, WITH EOT=1. 


A READ FORWARD COMMAND IS ISSUED, AND IT IS CHECKED 
THAT NORMAL TERMINATION OCCURS, WITH EOT=1. 


. A SPACE RECORDS REVERSE COMMAND, WITH A RECORD COUNT OF 


3, IS ISSUED, AND IT IS CHECKED THAT NORMAL TERMINATION 
OCCURS, WITH EOT=0. 


A SPACE RECORDS FORWARD COMMAND, WITH A RECORD COUNT OF 
3, IS ISSUED, AND IT IS CHECKED THAT NORMAL TERMINATION 
OCCURS, WITH EOT=1. 


A SKIP FILE MARKS REVERSE COMMAND IS ISSUED, WHICH 

SHOULD SKIP ALL THE WAY TO BOT, AND IT IS CHECKED THAT 
TAPE STATUS ALERT TERMINATION OCCURS, WITH EOT=0, 
BOT=1, AND RIB-1. 






SEQ 0186 
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TEST 5S: OPERATIONS AT EOT SEQ 0187 





7086 s* 

7087 3 

hee sTEST S, SUBTEST 1 

08 3 

7090 sVERIFIES THAT WRITING OVER THE END-OF-TAPE (EOT) 

7091 *MARKER CAUSES TAPE STATUS ALERT TERMINATION. IF THE 

7092 sTAPE TRANSPORT DOES NOT RECOGNIZE THE EOT MARKER, THE 

7093 sTAPE WILL RUN OFF THE END OF THE REEL, CAUSING THE 

7094 sPROGRAM SEQUENCE TO BE ABORTED WITH A FATAL ERROR 

7095 sINDICATION. IN THIS CASE, CORRECTIVE MAINTENANCE 

7096 sMUST BE PERFORMED USING THE TRANSPORT’S BUILT-IN 

7097 sMAINTENANCE ROUTINE AVAILIABLE VIA THE FRONT PANEL. 

7098 ;IF THE CONTROLLER DOES NOT RECOGNIZE THE EOT, THE 
7099 s TRANSPORT WILL FAULT BUT THE TAPE WILL NOT RUN OFF 

7100 ;THE END OF THE REEL BUT THE TRANSPORT MUST BE 
7101 sMANUALLY PLACED BACK ON-LINE TO BE USABLE. THIS IS A 
7102 sFATAL DIAGNOSTIC ERROR. 
7103 3 
7104 3 
7105 ; 
7106 3 
7107 ag 
7108 
7109 053040 BGNSUB 3>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
053040 75.1: 
053040 104402 TRAP CsBSus 

7110 ; 
7111 ; 
7112 ; 
7113 8 
7114 FRSREEEAAAAREEESEASAESEEAEAEEEARERAAEAAAAAAEEAEAEARARESEEALEAESAALELEAL 
7115 3 
7116 ; SPECIAL SOFTWARE PARAMETER CHECK TO REDUCE THE MTTR OF THE 
sete 3 ORIVE I.€. SKIPS THIS SUBTEST IF SELECTED 

118 F 
7119 FRRaERAREAAAEAEEERASEASEASSEAEAREASSEAESEEASAAESEARAERERAL SARA AEESEAERE 
7120 Fy 
7121 ; 
7122 ; 
7123 053042 005737 002140 TST EOTSEL sCHECK SWITCH FOR PARAMETER 
7124 053046 001402 BEQ 5$ ;BR, IF OPTICN NOT SELECTED 
7125 053050 000137 055372 JMP 600$ ;BR, NO EOT TEST SELECTED 
7126 053054 5$: 
7127 3 
7128 8 
7129 3 
7130 FRRAAEAAAREAAARABASESESESAAEARAEAEEAEABAEAREARAAEAAEAGALEAAARALALEL ER ESS 
7131 3 
7132 H SET UP THE PACKET BUFFERS AND WAIT LONG TIME FOR SSR 
hea ; THEN ISSUE A SOFT INITIALIZE 
7134 ; 
7135 SERAAAAREREAEARERARASAAEAREAEAEEAASABAEEAAAEASEARASRAREAREREREALE LE BEEEA 
7136 H 
7137 053054 004737 057726 JSR PC, T34REST sSET COMMAND PACKET 
7138 053060 004737 060164 JSR PC, T34RT3 sRESTORE PACKET 
7139 053064 004737 060122 JSR PC, T34RT2] ;SET UP OTHER COMMAND PACKET 
7140 053070 012737 176750 055564 MOV #65000. , T34DLY ;SET UP COUNTER 


Eee See ek 


mn i hr rr rr a 
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TEST 5: OPERATIONS AT EOT SEQ 0188 

7141 053076 004737 016650 10$: JSR PC SOF INIT 300 INITIALIZE ON CONTROLLER 

7142 053102 103433 6cs 20$ ;BR IF INIT WAS OK 

7143 053104 DELAY 250 sDELAY A WHILE 
053104 012727 000250 MCV #250 (PC )+ 
053110 000000 -WORD O 
053112 013727 002116 MGV LSDLY,(PC)+ 
053116 000000 «WORD O 
053120 005367 177772 DEC -6(PC) 
053124 001375 BNE .-4 
053126 005367 177756 DEC -22(0PC) 
053132 001367 BNE --20 

7144 053134 016501 000000 MOV TSSRCRS),R1 :GET TSSR STATUS 

7145 053140 032701 000200 BIT @SSR ,R1 sCHECK FOR SSR SET 

7146 053144 001012 BNE 20$ ;BR, WHEN SSR IS SET 

7147 053146 005337 055564 DEC T34DLY ;BUMP COUNTER DOWN 

7148 053152 001351 BNE 10$ ;BR, IF MORE DELAY REQUIRED 

7149 053154 004737 020104 JSR PC .FATCHK sINC AND CHECK FOR MORE THAN 25 ERRORS 

7153 053160 010001 MOV RO,R1 s;CONTENTS OF TSSR REGISTER 

7154 053162 ERRDF ERRNO,SFIERR,SFIMSG sFATAL ERROR TSSR WAS NOT OK 
053162 104455 TRAP CSEROF 
053164 000765 «WORD 501 
053166 003554 «WORD SFIERR 
053170 011666 -WORD SFIMSG 

7155 083172 20%: CKLOOP ;LOOP IF SELECTED 
053172 104406 TRAP CSCLPi 

7156 

7157 

7158 F 

7159 Perrier iri rit iit titi tit ttt ttt ttt TTT TT TT TTT TTT TT TTT TTT TTT TTT TT TTT TTT TTT 

7160 H 

Lng 3 ISSUE A WRITE CHARACTERISTICS COMMAND TO CONTROLLER 

162 ; 

7163 PT TPIT iit titi itt tt te ttt ttt TT TTT TTT TTT TT TTT TTT TTT TTT TTT TTT TTT TTT TT 

7164 Hy 

7165 053174 012704 055420 MOV #T34PACKET ,R4 ;SUBROUTINE NEEDS PACKET ADDRESS 

7166 053200 004737 010332 JSR PC ,WRTCHR sISSVE WRITE CHARACTERISTICS 

7167 053204 103407 BcS 30$ ;BR, IF COMMAND ISSUED OK 

7168 053206 004737 020104 JSR PC ,FATCHK sINC AND CHECK FOR MORE THAN 25 ERRORS 

7172 053212 010001 MOV RO,R1 sSAVE CONTENTS OF TSSR 

7173 053214 ERRHRD ERRNO, WRTMSG,SFIMSG sWRITE CHARACTERISTISC FAILED 
053214 104456 TRAP CSERHRD 
053216 000766 «WORD 502 
053220 004760 «WORD WRTMSG 
053222 011666 «WORD SFIMSG 

7174 053224 30$: CKLOOP ;LOOP IF SELECTED 

wave 053224 104406 TRAP CSCLPi 

7176 fREREAEREAEEEAREEAAEEEEERAAEAREAAAABAAERABAAREAEAAEAAASAREALEREEERRRELES 

7177 3 

eb 3 ISSUE A REWIND COMMAND 

179 ; 

7180 Pete Tete ttt ttt ttt te TTT tT TT TT TTT TTT TTT TTT TT TTT TTT TTT TTT TTT TT TTT 

7181 F 

7182 053226 004737 010434 JSR PC ,REWIND s;REWIND CALL 

7183 053232 103411 BCS 35$ ;BR, IF TSSR IS OK (GOOD) 

7184 053234 016501 000000 MOV TSSRCRS),R1 ;GET TSSR 

7185 053240 010004 MOV RO,R4 ;SET UP PACKET 
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TEST 5S: OPERATIONS AT EOT SEQ 0189 


























7186 053242 004737 020104 JSR PC ,FATCHK sINC AND CHECK FOR MORE THAN 25 ERRORS 
7190 053246 ERRHRD ERRNO, T34RWN,PKTSSR sTSSR IS INCORRECT AFTER REWIND 
053246 104456 TRAP CSERHRD 
053250 000767 «WORD 503 
053252 057246 -WORD T34RWN 
053254 011700 «WORD PKTSSR 
7191 053256 35$: CKLOOP ;LOOP IF SELECTED 
nee 053256 104406 TRAP CSCLPi 
3 
7193 PTT TTI titi i Ti tt tit tt tit TTT TTT TTT TTT TTT TTT TTT TTT TT TTT TTT TTT TTT TTT TTT 
7194 $ 
7195 : ISSUE A WRITE COMMAND, CHECK FOR ERRORS, THIS IS SO THAT THE 
Lp 8 DRIVE WILL NOT JUST HANG IF AN ERROR OCCURS. 
1 3 
7198 PEt i rir iti iri rit i itt ti tit ti ttt tt tT it TT TTT TTT TT TTT TTT TTT TTT TT TTT TTT TT 
7199 3 
7200 053260 012737 140005 055550 MOV #140005, T34PK3 sWRITE DATA, ACK, CVC#=1 
7201 053266 9913737 003076 055552 MOV FREE ,T34WB ;SET UP WRITE BUFFER ADDRESS 
7202 053274 012737 066540 055556 MOV #28000. , T34SZ ;SET UP BUFFER SIZE CINC # OF BYTES) 
7203 053302 012704 055550 MOV #T34PK3,R4 3R4 = POINTER TO PACKET 
7204 053306 010465 177776 36$: MOV R4,TSOBCRS) ;ISSUE COMMAND 
7205 053312 004737 017124 JSR PC ,WAILTF sWAIT FOR SSR TO SET 
7206 053316 016501 000000 MOV TSSR(RS), Ri ;GET TSSR CONTENTS 
7207 053322 012702 000200 MOV #SSR ,R2 sSET UP EXPECTED 
7208 053326 020102 CMP R1,R2 sARE THEY ZQUAL 
7209 053330 001407 BEQ 39$ ;BR, IF ALL IS WELL NO PROBLEMS 
7210 053332 004737 020104 JSR PC ,FATCHK ;INC AND CHECK FOR MORE THAN 25 ERRORS 
7214 053336 ERRSOFT ERRNO, WRTERR,PKTSSR :TSSR INCORRECT AFTER WRITE TAPE 
053336 104457 TRAP CSERSOFT 
053340 000770 -WORD 504 
053342 005015 «WORD WRTERR 
053344 011700 -WORD PKTSSR 
7215 053346 000757 BR 36$ :BR, TO DO MORE CONTROLLED WRITES 
7216 053350 39$: CKLOOP ;LOOP ON ERROR IF SELECTED 
053350 104406 TRAP CSCLP1 
7217 
7218 
7219 F 
7220 FRAREKAAEARAEEREDEARAAAEASEAEAARAASEAAAEESALEAEAAEESASARAASRESSEEARARAREELEE 
7221 ; 
en 3 ISSUE A WRITE COMMAND, KEEP GOING UNTIL TAPE STATUS ALERT 
722 3 
7224 FERSSAEEAAAAKAAARASEAAREREASASAAEAASARAAEAEEEEEEKEEEEEKEEEEEESEEERSEEEREESE 
7225 H 
7226 053352 012737 140005 055550 MOV #140005, T34PK3 sWRITE DATA, ACK, CvC=1 
7227 053360 012703 176750 MOV #65000. ,R3 ;SET MAX NUMBER OF WRITES 
7228 053364 013737 003076 055552 MOV FREE, T34WB ;SET UP WRITE BUFFER ADDRESS 
7229 053372 012737 066540 055556 MOV #28000. ,T34SZ ;SET UP BUFFER SIZE CINC # OF BYTES) 
7230 053400 012704 055550 MOV #T34PK3,R4 3R4 = POINTER TO PACKET 
7231 053404 010465 177776 40$: MOV R4, TSDBCRS) ;ISSUE COMMAND 
7232 053410 004737 017124 JSR PC ,WAITF ;WAIT FOR SSR TO SET 
7233 053414 016501 000000 MOV TSSRCRS),R1L ;GET TSSR CONTENTS 
7234 053420 012702 000200 MOV #SSR,R2 ;SET UP EXPECTED 
7235 053424 020102 CMP R1,R2 sARE THEY EQUAL 
7236 053426 001010 BNE 50$ ;BR, IT MIGHT BE END OF TAPE 
7237 053430 005303 DEC R3 ;DEC RECORD COUNTER 


7238 053432 001364 BNE 40$ ;BR, IF MORE TO GO 
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7239 053434 004737 020104 JSR PC .FATCHK sINC AND CHECK FOR MORE THAN 25 ERRORS 
7243 053440 ERRDF ERRNO, T34ET,PKTSSR sEOT NOT FOUND CUSE SHORTER TAPE?) 
053440 104455 TRAP CSEROF 
053442 000771 «WORD 505 
053444 057057 «WORD T34ET 
vase 053446 011700 -WORD PKTSSR 
3 
7245 FRREEEEEAEEREEEEEEEEEEEEEEEDES ODED ES OE 4S OEEEOEEEEDOEOEED ODES EREEEEREEEE 
7246 3 
od 3 HAVE TAPE STATUS ALERT, NOW CHECK FOR EOT. IF NEITHER KEEP GOING 
F 
7249 fSESEEEEEAAEEEEAREEEE DEES EEEEEEEEEEEEEEEEEDESEDOS OD NEEEDEEDEEDEEEEDEEEESD 
7250 3 
7251 053450 50$: 
7252 053450 022701 100210 CMP #100210,R1 sCHECK FOR UNCORRECTABLE ERROR 
7253 053454 001003 BNE 55$ 3BR, IF IT WASN’T UNCORR. 
7254 053456 004737 060020 JSR PC ,EWCHK sCHECK FOR EARLY WARNING 
7255 053462 103750 BcS 40$ ;BR, IF EARLY WARNING FOUND 
7256 053464 032701 000004 55$: BIT #BIT2,R1 ;CHECK FOR TAPE STATUS ALERT 
7257 053470 001001 BNE 60$ ;BR, IF SET 
7258 053472 000744 BR 40$ sKEEP GOING 
7259 053474 013701 055446 60$: MOV T34BFR+6,R1 sPICK UP XxSTO 
7260 053500 010102 MOV R1,R2 sSET UP EXPECTED 
7261 053502 052702 000001 BIS #BITO,R2 ;SET THE EOT BIT ON IN EXPECTED 
7262 053506 020102 CMP R1,R2 ;WAS THE BIT ON 
7263 053510 001402 BEQ 80$ ;BR, IF EOQT WAS FOUND 
7264 053512 000137 053404 JMP 40$ sKEEP LOOKING 
7265 053516 80$: CKLOOP ;LOOP IF SELECTED 
vess 053516 104406 TRAP CSCLP1 
3 
7267 ESTE Trier errr itt tt tte ete TTT TTT TT TTT TTT TT TTT TTT TTT TT TTT 
7268 F 
nd 8 ISSUE ONE MORE WRITE AFTER EOT DETECTED 
ie 
7271 RRRAEAAEAAEEAAEEAREARAEREAREAEREAEAAEASEARASEAREREREEAREAREREALALEEEELS 
7272 3 
7273 053520 012737 140005 055550 MOV #140005, T34PK3 sWRITE DATA, ACK, CVC=1 
7274 053526 013737 003076 055552 MOV FREE , T34W8 sSET UP WRITE BUFFER ADDRESS 
7275 053534 012737 066540 055556 MOV #28000. , T34SZ ;SET UP BUFFER SIZE CINC # OF BYTES) 
7276 053542 012704 055550 MOV #T34PK3,R4 3R4 = POINTER TO PACKET 
7277 053546 010465 177776 MOV R4, TSDOBCRS) sISSUE COMMAND 
7278 053552 004737 017124 JSR PC ,WAITF ;WAIT FOR SSR TO SET 
7279 053556 016501 000000 MOV TSSRCRS),R1 ;GET TSSR CONTENTS 
7280 053562 012702 100204 MOV #SC!SSR!BIT2,R2 ;SET UP EXPECTED 
7281 053566 020102 CMP R1,R2 sARE THEY EQUAL 
7282 053570 001406 BEQ 90$ 3;BR, IF THEY ARE OK 
7283 053572 004737 020104 JSR PC ,FATCHK sINC AND CHECK FOR MORE THAN 25 ERRORS 
7287 053576 ERRHRD ERRNO, T34ET2,PKTSSR sWRITE TAPE AT EOT FAILED TO SET TSA 


053576 104456 TRAP CSERHRD 
053600 000772 -WORD 506 
053602 056430 «WORD T34ET2 
053604 011700 «WORD PKTSSR 

7288 053606 90$: CKLOOP ;LOOP IF SELECTED 

ions 053606 104406 TRAP CS$CLP1 

; 
7290 §RERERAREREEAREEEEEEAEAEASAREREAAABARASEEAAAAEEARSRASALEEEEALELERELEREE 
7291 ; 
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TEST 5S: OPERATIONS AT EOT SEQ 0191 
de | 3 CHECK TO BE SURE EOT IS STILL SET, IT SHOULD BE 
3 
7294 FRRAAAAAEEEEEEEAEEEDEEEAEDEEEEEDES SEES REEDED DS OS ODEEOEEEEEDEEEDEEEEDERS 
7295 $ 
7296 053610 013701 055446 MOV T34BFR+6,R1 sPICK UP XxSTO 
7297 053614 010102 MOV R1,R2 sSET UP EXPECTED 
7298 053616 052702 000001 81S #BITO,R2 ;SET THE EOT BIT ON IN EXPECTED 
7299 053622 020102 cmp R1,R2 ;WAS THE BIT ON 
7300 053624 001406 BEQ 100$ :BR, IF EOT was FOUND 
7301 053626 004737 020104 JSR PC ,FATCHK sINC AND CHECK FOR MORE THAN 25 ERRORS 
7305 053632 ERRHRD ERRNO, T34ETN,EXPREC iEOT BIT (XSTO) NOT SET 
053632 104456 TRAP CSERHRD 
053634 000773 «WORD 507 
053636 056516 «WORD T34ETN 
053640 016350 -WORD EXPREC 
7306 053642 100$: CKLOOP ;LOOP IF SELECTED 
rer 053642 104406 TRAP CSCLP1 
3 
7308 FRRRAEAEAEEEAARERAEEREAAAEEAAEASEEEE EE EEEEEE ERED OS EE EE ERED EEEEED ERED EDS 
7309 3 
ware 8 NOW ISSUE A WRITE TAPE MARK, STILL BEYOND EOT 
11 ; 
7312 FRRRREREEEAEEAEAERARERASEEES AERA EAEAAREASAASERASARARELER RARE RERALALALAL 
7313 3 
7314 053644 012737 140011 055550 MOV #140011, T34PK3 sWRITE TAPE MARK, ACK, CVC=1 COMMAND 
7315 053652 012704 055550 MOV #T34PK3,R4 3R4 = POINTER TO PACKET 
7316 053656 010465 177776 MOV R4,TSDBCRS) sISSUE COMMAND 
7317 053662 004737 017124 JSR PC ,WAITF sWAIT FOR SSR TO SET 
7318 053666 016501 000000 MOV TSSRCRS),R1L ;GET TSSR CONTENTS 
7319 053672 012702 100204 MOV #SC!SSR!BIT2,R2 ;SET UP EXPECTED 
7320 053676 020102 CMP R1,R2 ;ARE THEY EQUAL 
7321 053700 001406 BEQ 110$ ;BR, IF STATUS IS GOOD (0K) 
7322 053702 004737 020104 JSR PC ,FATCHK sINC AND CHECK FOR MORE THAN 25 ERRORS 
7326 053706 ERRHRD ERRNO, T34WT™M,PKTSSR sWRITE TAPE MARK FAILED 
053706 104456 TRAP CSERHRD 
053710 000774 -WORD 508 
053712 056341 -WORD T34WTM 
053714 011700 -WORD PKTSSR 
7327 053716 110$: CKLOOP ;LOOP IF SELECTED 
— 053716 104406 TRAP CSCLP1 
3 
7329 {REAEAEREARERAAEAAREREAEAAAEAAAAAEARASEASAAEAREREREAEASALERRALLS ARR ARE 
7330 3 
ns 3 NOW CHECK TO BE SURE EOT IS STILL SET 
2 3 
7333 fRERERARARASEAEAEEEEAE REESE EE EAEAAREEES ES ES EAEREEEEESESEESERALEELEREE EEA 
7334 3 
7335 053720 013701 055446 MOV T34BFR+6,R1 sPICK UP XxSTO 
7336 053724 010102 MOV R1,R2 sSET UP EXPECTED 
7337 053726 052702 000001 BIS #BITO,R2 ;SET THE EOT BIT ON IN EXPECTED 
7338 053732 020102 CMP R1,R2 ;WAS THE BIT ON 
7339 053734 001406 BEQ 120$ ;BR, IF EOQT WAS FOUND 
7340 053736 004737 020104 JSR PC ,FATCHK sINC AND CHECK FOR MORE THAN 25 ERRORS 
7344 053742 ERRHRD ERRNO, T34ETO,EXPREC sEOT BIT (XSTO) NOT SET 
053742 104456 TRAP CSERHRD 
053744 000775 «WORD 509 


053746 055764 T34ETO 











ee 


CZTKHB TK-25 FRT END FUNC 04 
TEST S: OPERATIONS AT EOT 


7384 


7385 


7386 
7387 
7388 
7389 
7390 
7391 
7392 
7393 
7394 
7395 


054036 
054042 
054044 
054050 
054052 
054054 
054060 
054060 
054062 
054064 
054066 
054070 
054070 


054072 
054076 
054100 





016350 
104406 


012737 
012737 


013701 
010102 
052702 
020102 
001406 
004737 


104456 
000777 
057421 
016350 


104406 


013701 
010102 
052702 





141410 055550 
000001 055552 
055550 


055446 
000001 


020104 


055446 
100000 
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-WORD EXPREC 


120$: CKLOOP sLOOP IF SELECTED 
TRAP CsCLP1 


3 
j PERERA EAEEALES ALES S EEREEAEEAAAEAESERASASERAAERARALARERER EEE EERALES 


; 
: NOW ISSUE A SKIP TAPE MARK REVERSE RIGHT BACK INTO THE JUST WRITTEN TM 
: 
FT acetate eet ett TLL t tlt tT TTT TTT TTT TTT TTT TTT 
MOV #141410, T34PK3 sSKIP TAPE MARK REVERSE ACK,CVC=1 COMMAND 
MOV #1,T34WB sSET NUMBER (1) OF TMS TO SKIP 
MOV #T34PK3,R4 sR4 = POINTER TO PACKET 
MOV R4,TSDBCRS) sISSUE COMMAND 
JSR PC ,WAITF sWAIT FOR SSR TO SET 
MOV TSSRCRS),R1 sGET TSSR CONTENTS 
MOV @SSR ,R2 sSET UP EXPECTED 
CMP R1,R2 sARE THEY EQUAL 
BEQ 130$ sBR, IF STATUS IS GO2O (OK) 
JSR PC ,FATCHK sINC AND CHECK FOR MOFE THAN 25 ERRORS 
ERRHRD ERRNO, T34STM,PKTSSR ;SKIP TAPE MARK REVE%SE FAILED 
TRAP CSERHRD 
-WORD 510 
-WORD  T34STM 
-WORD PKTSSR 
130$: CKLOOP sLOOP IF SELECTED 


TRAP CSCLP1 


; 
jSSEEEAAEEASEERASESASEEAARARAREAAASAARAAAEASARAAREARARALSEEREREELALREESE 


; 

; EOT SHOULD STILL BE SET 

; 

acetate abet hte ttLL itt tit ttt tit tlt tt TTT TTT TTT TTT TTT TT TT ToT Ts 


MOV T34BFR+6,R1 sPICK UP XSTO 

MOV R1,R2 sSET UP EXPECTED 

BIS #BITO,R2 sSET THE EOT BIT ON IN EXPECTED 

CMP R1,R2 sWAS THE BIT ON 

BEQ 140$ sBR, IF EOT WAS FOUND 

JSR PC ,FATCHK sINC AND CHECK FOR MORE THAN 25 ERRORS 


ERRHRD ERRNO, T34STE ,EXPREC sEOT BIT (XSTO) NOT SET 
TRAP CSERHRD 


-WORD 511 
-WORD T34STE 
-WORD  EXPREC 


140$: CKLOOP sLOOP IF SELECTED 
TRAP CSCLP1 


i 
FRESE SEEAEAEREAEAAEERASEASAAEEABEAABEALEAREEARASARAAAEALESAARERERELEDE 


Hy 
: THE TMK BIT SHOULD BE SET ALSO 
EERO R OE eT OTR A SIT D LEE | LP NN 
? MOV T34BFR+6,R1 ;PICK UP XSTO 
MOV R1,R2 ;SET UP EXPECTED 
BIS #B1T15,R2 ;SET THE TMK BIT ON IN EXPECTED 
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7396 
7397 
7398 
7402 


7403 


7404 
7405 
7406 
7407 
7408 
7409 
7410 
7411 
7412 
7413 
7414 
7415 
7416 
7417 
7418 
7419 
7420 
7424 


7425 
7426 


7430 
7431 


7442 


054104 


054210 
054214 
054216 
054222 
054224 
054226 
054232 
054232 
054234 
054236 
054240 
054242 
054242 





020102 
001406 
004737 


104456 
001000 
056751 
016350 


104406 


012737 
012737 
012704 
010465 
004737 
016501 
012702 
020102 
001006 
004737 


104456 
001001 
055676 
011700 


104406 


013701 
010102 
052702 
020102 
001406 
004737 


104456 
001002 
056601 
016350 


104406 





020104 


140410 055550 
000001 055552 


055446 
000001 


020104 


150$: 
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CMP R1,R2 

BEQ 150$ 

JSR PC ,.FATCHK 

ERRHRD ERRNO, T34TMK ,EXPREC 


CKLOOP 





sWAS THE BIT ON 
;BR, IF TMK WAS FOUND 
sINC AND CHECK FOR MORE THAN 25 ERRORS 
sTMK (XSTO) NOT SET 
TRAP CSERHRD 


-WORD 512 
-WORD T34TMK 
-WORD EXPREC 


;LOOP IF SELECTED 
TRAP CsCLP1 


§ 9866006606006 064646666606 644640660646 0400600466466 6060406000460460460646040 4000400040000 4488 


ISSUE SPACE RECORDS REVERSE FOR 1 RECORD, STILL BEYOND EOT 


$8666 06444646060 466066646 660400460666 046 600446460646644006 0040646 0600400044006 046 44484 


160$: 


MOV #140410, T34PK3 
MOV #1, T34WB 

MOV OT34PK3,R4 

MOV R4, TSOBCRS) 

JSR PC ,WAITF 

MOV TSSRC(RS),R1 

MOV @SC!SSR!BIT2,R2 

CMP R1,R2 

BNE 160$ 

JSR PC ,FATCHK 

ERRHRD ERRNO, T34P0S ,PKTSSR 


CKLOOP 


sSPACE RECORDS REVERSE, ACK, CVvC=1 CMD 
sSPACE ONE RECORD REVERSE 

sR4 = POINTER TO PACKET 

sISSUE COMMAND 

sWAIT FOR SSR TO SET 

sGET TSSR CONTENTS 

sSET UP EXPECTED 

sARE THEY EQUAL 

;BR, IT MIGHT BE END OF TAPE 

sINC AND CHECK FOR MORE THAN 25 ERRORS 
sSPACE RECORDS REVERSE foo 


CSERHRD 
-WORD 513 
-WORD T34P0S 
-WORD PKTSSR 


sLOOP IF SELECTED 
TRAP CsCLP1 


: 
98684644646 66446 064006046464646646466004646464664666060640448440646460 0046046464806 400000086 


EOT SHOULD STILL BE SET 


° 
599008 4646446464044064660646 044646 464646464646 4646464664446 60046 0046046064460 46000664464646 4406448 


163$: 


5466 6466000464040 4604644646446 06 0404040646046460464604646046 0460064004064 66466460604 4640646664444 


MOV T34BFR+6,R1 
R1,R2 


BIS #BITO,R2 
CMP R1,R2 
BEQ 163$ 


JSR PC .FATCHK 
ERRHRD ERRNO, T34ETS ,EXPREC 


CKLOOP 


sPICK UP XSTO 
sSET UP EXPECTED 
sSET THE EOT BIT ON IN EXPECTED 
sWAS THE BIT ON 
sBR, IF EQT WAS FOUND 
sINC AND CHECK FOR MORE THAN 25 ERRORS 
sEOT BIT CXSTO) NOT SET 
TRAP CSERHRD 


-WORD 514 
-WORD T34ETS 
-WORD EXPREC 


;LOOP IF SELECTED 
TRAP CsCLPi 






SEQ 0193 
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TEST 5S: OPERATIONS AT EOT 


mod 8 HOWEVER, THE TMK BIT SHOULD NOW BE CLEAR 
F 
7449 § O46 S666 60660666 060606046000 0660000006 000000 000000000000000000000000800 
7450 8 
7451 054244 013701 055446 MOV T34BFR+6,R1 sPICK UP xSTO 
7452 054250 010102 MOV R1,R2 sSET UP EXPECTED 
74S3 054252 042702 100000 BIC #B1T15,R2 ;CLEAR THE TMK BIT ON IN EXPECTED 
7454 054256 020102 CMP R1,R2 sWAS THE BIT ON 
7455 054260 001406 BEQ 165$ 3;BR, IF TMK WAS FOUND 
7456 054262 004737 020104 JSR PC ,FATCHK sINC AND CHECK FOR MORE THAN 25 ERRORS 
7460 054266 ERRHRD ERRNO, T34TMN,EXPREC ;COULD NOT CLEAR TMK (ZSTO) 
054266 104456 TRAP CSERHRD 
054270 001003 «WORD 515 
054272 057515 «WORD T34TMN 
054274 016350 «WORD EXPREC 
7461 054276 165$: CKLOOP ;LOOP IF SELECTED 
oe 054276 104406 TRAP CSCLP1 
$ 
7463 Eee t tL ttt L ttt TTT TT TTT TTT TTT TTT TTT TT TTT Te Tet 
7464 $ 
fase 8 NOW SPACE 3 RECORDS IN REVERSE 
6 ; 
7467 § 98666666006 6666066000 6000060006 6006 06 0000000600000600006000000000000008 
7468 F 
7469 054300 012737 140410 055550 MOV #140410, T34PK3 sSPACE RECORDS REVERSE, ACK, CVC=1 CMD 
7470 054306 012737 000003 055552 MOV #3, 734WB ;SPACE THREE RECORD REVERS SE 
7471 054314 012704 055550 MOV @T34PK3,R4 3R4 = POINTER TO PACKET 
7472 054320 010465 177776 MOV R4, TSOBCRS) sISSUE COMMAND 
7473 054324 004737 017124 JSR PC ,WAITF ;WAIT FOR SSR TO SET 
7474 054330 016501 000000 MOV TSSRCRS),R1 ;GET TSSR CONTENTS 
7475 054334 012702 000200 MOV @SSR ,R2 ;SET UP EXPECTED 
7476 054340 020102 CMP R1,R2 sARE THEY EQUAL 
7477 054342 001406 BEQ 167$ 3BR, IT MIGHT BE END OF TAPE 
7478 054344 004737 020104 JSR PC ,FATCHK sINC AND CHECK FOR MORE THAN 25 ERRORS 
7482 054350 ERRHRD ERRNO, T34P0S,PKTSSR iSPACE RECORDS COMMAND FAILED 
054350 104456 ‘ TRAP CSERHRD 
054352 001004 «WORD 516 
054354 055676 -WORD T34P0S 
054356 011700 -WORD PKTSSR 
7483 054360 167$: CKLOOP ;LOOP IF SELECTED 
— 054360 104406 TRAP CSCLPi 
F 
7485 §SObDEEE46EE OSES EE EEEEOEEEEEEEEEEEEEEDEEEEEEEDERESEEEEDDEALEREREEEEES 
7486 3 
7487 3 NOW THE EOT BIT SHOULD BE CLEAR 
7488 3 
7489 Tbh babe net oti Toei r TTT i Tritt ti titi tT ttt TTT TTT TT TTT TT TT eT eT ee eee ee ee 
7490 F 
7491 954362 013701 055446 MOV T34BFR+6,R1 sPICK UP XSTO 
7492 054366 010102 MOV R1,R2 sSET UP EXPECTED 
7493 054370 042702 000001 BIC #BITO,R2 ;CLEAR THE EOT BIT ON IN EXPECTED 
7494 054374 020102 CMP R1,R2 sWAS THE BIT OFF 
7495 054376 001404 BEQ 170$ ;BR, IF EQT WAS FOUND 
7499 054400 ERRHRD ERRNO, T34ETC,PKTSSR sUNABLE TO CLEAR EOT INDICATION 
054400 104456 TRAP CSERHRD 
054402 001005 «WORD 517 


054404 056155 -WORD T34ETC 
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— 


054474 
054500 
054502 
054506 
054510 
054512 
054516 
054516 
054520 
054522 
054524 
054526 
054526 


054530 
054536 


011700 


012737 
012737 


013701 
2 


004737 


104456 
001007 
056601 
016350 


104406 


012737 
013737 
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140010 055550 
sooees 055552 


055446 
000001 


020104 


140401 
003076 





055550 
055552 


«WORD PKTSSR 
170$: CKLOOP sLOOP IF SELECTED 

TRAP CsCLP1 
onanndanaabanenbnnnnneseneenaensnnanessnseneonrscnnnsntnanendneamenets 
; . NOW SPACE 4 RECORDS FORWARD, ONCE AGAIN OVER EOT MARKER 


; 
Dae ee hthehen treet T titi TTT tT tt Tit tT TTT TTT TTT TT TTT) 
7% 
MOV 4 #140010, T34PK3 sSPACE RECORDS FORWARD, ACK, CVC=1 
MOV . #4,7T34WB sSPACE FOUR RECORDS 
MOV @T34PK3,R4 sR4 = POINTER TO PACKET 
MOV R4, TSDBCRS) sISSUE COMMAND 
JSR PC ,WAITF sWAIT FOR SSR TO SET 
MOV TSSRCRS),R1 sGET TSSR CONTENTS 


MOV @SSR ,R2 sSET UP EXPECTED 

CMP Ri ,R2 sARE THEY EQUAL 

BEQ ye: sBR, IT MIGHT BE END OF TAPE 

JSR PC ,FATCHK sINC AND CHECK FOR MORE THAN 25 ERRORS 

ERRHRD ERRNO, T34P0S ,PKTSSR sSPACE RECORDS COMMAND FAILED 
TRAP CSERHRD 
-WORD 518 
-WORD T34P0S 
-WORD PKTSSR 

190$: CKLOOP sLOOP IF SELECTED 


TRAP CsCLPi 


i 
FREREREEEREERESEAEEEEEAEEEDEDEDEEEEEEEEEE DEES EKEEESEEEDDEEEEEEREEREREEEE 


5 
; ONCE AGAIN THE EOT INDICATION SHOULD BE SET IN XSTATO 
; 
jPORREEEEEEEEE EE EE OEOS 4004 06 460000006060000 06 0460006000000000000000000004 
; 
MOV T34BFR+6,R1 sPICK UP XSTO 
MOV R1,R2 sSET UP EXPECTED 
BIS #BITO,R2 sSET THE EOT BIT ON IN EXPECTED 
CMP R1,R2 sWAS THE BIT ON 
BEQ 200$ sBR, IF EOQT WAS FOUND 


JSR PC ,FATCHK sINC AND CHECK FOR MORE THAN 25 ERRORS 
ERRHRD ERRNO, T34ETS ,EXPREC sEOT BIT (XSTO) NOT SET 
TRAP CSERHRD 


WORD 519 
WORD T34ETS 
WORD EXPREC 


200$: CKLOOP sLOUP IF SELECTED 
TRAP CsCLPi 


3 

§ 0000 0606000666 0000 6006000006600006066000006600600000000000000000000008 
; 

; NOW ISSUE A READ REVERSE COMMAND 

; 

§ 00008060000 066606000000600000066060666600600000000 0000000600 006060000008 


MOV #140401, T34PK3 sREAD REVERSE, ACK, CvC=1 
MOV FREE , 13488 sSET UP WRITE BUFFER ADDRESS 


SEQ 0195 
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012737 
013737 


012737 
013737 
012737 





055550 
177776 
017124 
000000 


000200 


020104 


140001 
003076 
066540 
055550 
177776 
017124 
000000 


000200 


020104 
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055550 
055552 


2053: 


CKLOOP 


CHK 
ERRNO, TS4RRE .PKTSSR 


sR4 © POINTER TO PACKET 
sISSUE COMMAND 


SET 
sINC AND CHECK FOR MORE THAN 25 ERRORS 
sREAD REVERSE COMMAND FAILED 


TRAP CSERHRD 

-WORD 520 

-WORD TS4RRE 

«WORD PKTSSR 
sLOOP IF SELECTED 

TRAP CscLPi1 


3 
§ 0060866466660 06 6606608666666 6668 SE66 EEFOEEEEEEEEEEEEEEESEEEEEDREREODEEOES 


° 
$200 06 0666 6066680666 6668 66666666 06 6666060600666 000060660668666066 46606068 


; NOW ISSUE A READ REVERSE COMMAND 
MOV #140401, T34PK3 
MOV FREE , T34R8 
MOV @T34PK3,R4 
MOV R4, TSOBCRS) 
JSR PC ,WAITF 
MOV TSSRC(RS),R1 
MOV @SSR ,R2 
CMP R1,R2 
BEQ 2108 


2108: 


CKLOOP 


CHK 
ERRHRD ERRNO, T34RRE .PKTSSR 


sREAD REVERSE, ACK, CvC#1 
sSET UP WRITE BUFFER ADDRESS 
sR4 * POINTER TO PACKET 
sISSUE COMMAND 

sWAIT FOR SSR TO SET 

sGET TSSR CONTENTS 

sSET UP EXPECTED 

sARE THEY EQUAL 

sBR, IT MIGHT BE END OF TAPE 
sINC AND CHECK FOR MORE THAN 25 ERRORS 
sSECOND READ REVERSE oo FAILED 


TR CSERHROD 

-WORD S21 

-WORD T34RRE 

-WORD PKTSSR 
sLOOP IF SELECTED 

TRAP CsCLP1 


a 
§ 9686640666666 6066046606666 0666666646 66666066060066066066006646460064664060686068466048 


‘ 
; NOW ISSUE A READ COMMAND 


é 
§966606606666666466666666666664666666666666646080606606666660666466000660686666 


JSR 


#140001, T34PK3 


-FATCHK 
ERRHRD ERRNO, T34RRF ,PKTSSR 


sREAD DATA, ACK, CVC#=1 
sSET UP WRITE BUFFER ADDRESS 
sSET UP BUFFER SIZE CINC @ OF BYTES) 
sR4 = POINTER TO PACKET 
sISSUE COMMAND 
sWAIT FOR SSR TO SET 
sGET TSSR CONTENTS 
sSET UP EXPECTED 
sARE THEY EQUAL 
sBR, IT MIGHT BE END OF TAPE 
sINC AND CHECK FOR MORE THAN 25 ERRORS 
sREAD FORWARD COMMAND FAILED 
TRAP CSERHRD 


SEQ 0196 
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SEQ 0197 


054754 001012 -WORD S22 
054756 057600 «WORD T34RRF 
054760 011700 WORD PKTSSR 
7606 054762 2303: CKLOOP sLOOP IF SELECTED 
054762 104406 AP CSCLPi 
7607 054764 012737 140001 055550 MOV #140001, T34PK3 sREAD DATA, ACK, CvC#1 
7608 054772 013737 003076 055552 MOV FREE , T34RB sSET UP WRITE BUFFER ADDRESS 
7609 055000 012737 066540 055556 MOV 428000. , T34SZ sSET UP BUFFER SIZE (INC @ OF BYTES) 
7610 055006 012704 055550 MOV @T34PK3, 3R4 = POINTER TO PACKET 
7611 055012 010465 177776 MOV R4, TSOBCRS) sISSUE COMMAND 
7612 055016 004737 017124 JSR PC ,WAILTF sWAIT FOR SSR TO SET 
7613 055022 016501 MOV TSSRCRS),R1 ;GET TSSR CONTENTS 
7614 055026 012702 000200 MOV SR ,R2 3SET UP EXPECTED 
7615 055032 020102 CMP R1,R2 sARE THEY EQUAL 
7616 055034 001406 BEQ 23538 ;6R, IT MIGHT BE END OF TAPE 
7617 055036 004737 020104 JSR PC .FATCHK sINC AND CHECK FOR MORE THAN 25 ERRORS 
7621 055042 ERPHRD ERRNO, T34RRF .PKTSSR sSECOND READ FORWARD FAILED 
055042 104456 TRAP CSERHRD 
055044 001013 «WORD 523 
055046 057600 WORD T34RRF 
055050 011700 WORD PKTSSR 
7622 055052 23538: CKLOOP ;LOOP IF SELECTED 
— 0550 104406 TRAP CsCLPi 
3 
7624 § 9006666666666 6606 6666666666 666460646606646 6066646606 6606646646066606646066066468 
7625 3 
ys 3 THE EOT BIT SHOULD HAVE REMAINED SET 
Hy 
7628 §9066666 666666 60660666066066 6466066660 66606+64606466606606066 6600666006466 40466086 
7629 F 
7630 055054 013701 055446 MOV T34BFR+6,R1 sPICK UP XSTO 
7631 055060 010102 MOV R1,R2 sSET UP EXPECTED 
7632 055062 052702 000001 BIS BITO,R2 ;SET THE EOT BIT ON IN EXPECTED 
7633 055066 020102 CMP R1,R2 sWAS THE BIT ON 
7634 055070 001406 BEQ 240$ ;BR, IF EQT WAS FOUND 
7635 055072 004737 020104 JSR PC ,FATCHK sINC AND CHECK FOR MORE THAN 25 ERRORS 
7639 055076 ERRHRD ERRNO, T34ETZ,EXPREC ;EOT BIT (CXSTO) NOT SET 
055076 104456 TRAP CSERHRD 
055100 001014 -WORD 524 
055102 056667 «WORD T34ETZ 
055104 016350 WORD EXPREC 
7640 055106 240%: CKLOOP ;LOOP IF SELECTED 
70a 055106 104406 TRAP CSCLP1 
3 
7642 $906 66666464664664666 6664646664646 4666466640046 2040646660666 6044664464646 4646464644444% 
7643 ; 
pe ; NOW ISSUE A SPACE RECORDS REVERSE FOR 5 RECORDS 
Fy 
7646 566 O464646466464646 06646660066 66464646 4660606 4446604606046 006460464606460640646464446464644444 
7647 : 
7648 055110 012737 140410 055550 MOV #140410, T34PK3 sSPACE RECORDS REVERSE. ACK, CVC=1 CMD. 
7649 055116 012737 000005 055552 MOV #5, T34RB sNUMBER OF RECORDS TO SPACE 
7650 055124 012704 055550 MOV @T34PK3,R4 3R4 = POINTER TO PACKET 
7651 055130 010465 177776 MOV R4, TSDBCRS) ;ISSUE COMMAND 
7652 055134 004737 017124 JSR PC ,WAITF ;WAIT FOR SSR TO SET 
7653 055140 016501 000000 MOV TSSRCRS),R1 ;GET TSSR CONTENTS 
7654 055144 012702 000200 MOV #SSR,R2 ;SET UP EXPECTED 
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TEST S: OPERATIONS AT EOT 


S=Q@ 0198 


7655 055150 020102 CMP R1,R2 sARE THEY EQUAL 
7656 055152 001406 BEQ 2508 ;6R, IT MIGHT BSE END OF TAPE 
7657 055154 004737 020104 JSR PC .FATCHK sINC AND CHECK FOR MORE THAN 25 ERRORS 
7661 055160 ERRHRD ERRNO, T34P0S,PKTSSR sSPACE S RECORDS REVERSE COMMAND FAILED 
055160 104456 TRAP CSERHRD 
055162 001015 «WORD 525 
055164 055676 «WORD T34P0S 
055166 011700 -WORD PKTSSR 
7662 055170 2508: CKLOOP sLOOP IF SELECTED 
7668 055170 104406 TRAP CSCLPi1 
3 
7664 $900 0066666666 66666046068 6404660666006 466066660646046600066 0660664600 4660606660606068 
7665 3 
weet F EOT SHOULD BE CLEAR AS WE ARE NOW IN FRONT OF EGT 
3 
7668 §9O60660666666 6666666606 06666 666606 6666666606606 4000066 0664660664 0646640660006 066 
7669 3 
7670 055172 013701 055446 MOV T34BFR+6,R1 sPICK UP XSTO 
7671 055176 010102 MOV R1,R2 ;SET UP EXPECTED 
7672 055200 042702 000001 BIC #BITO,R2 ;CLEAR THE EOT BIT ON IN EXPECTED 
7673 055204 020102 CMP R1,R2 sWPS THE BIT ON 
7674 055206 001406 BEQ 260$ ;BR, IF EQT WAS FOUND 
7675 055210 004737 020104 JSR PC ,FATCHK sINC AND CHECK FOR MORE THAN 25 ERRORS 
7679 055214 ERRHRD ERRNO, T34ETC,EXPREC sEOT BIT (XSTO) NOT CLEAR 
055214 104456 TRAP CSERHRD 
055216 001016 «WORD 526 
055220 056155 «WORD T34ETC 
055222 016350 «WORD EXPREC 
7680 055224 260$: CKLOOP ;LOOP IF SELECTED 
sone 055224 104406 TRAP CSsCLPi 
3 
7682 § 9066606 4640460646646664666 0466646666666 6666666606 4644664464646 4646646460066 96 65056946488 
7683 3 
pees 3 NOW SPACE FORWARD S RECORDS AGAIN 
; ‘ 
7686 59664600666 464666 46066664 0664666666 6606464646 6404646 6644066446646 60604064 6464646464044 404 
7687 
7688 055226 012737 140010 055550 MOV #140010, T34PK3 ;SPACE RECORDS FORWARD, ACK, CVC=1 CMD. 
7689 055234 012737 000005 055552 MOV #5, 1T34RB sNUMBER OF RECORDS TO SPACE 
7690 055242 012704 055550 MOV #T34PK3,R4 ;R4 = POINTER TO PACKET 
7691 055246 010465 177776 MOV R4, TSDBCRS) sISSUE COMMAND 
7692 055252 004737 017124 JSR PC ,WAITF sWAIT FOR SSR TO SET 
7693 055256 016501 000000 MOV TSSRCRS),R1 ;GET TSSR CONTENTS 
7694 055262 012702 000200 MOV SR,R2 ;SET UP EXPECTED 
7695 055266 020102 CMP R1,R2 ;ARE THEY EQUAL 
7696 055270 001406 BEQ 270$ ;BR, IT MIGHT BE END OF TAPE 
7697 055272 004737 020104 JSR PC ,FATCHK :INC AND CHECK FOR MORE THAN 25 ERRORS 
7701 055276 ERRHRD ERRNO, T34P0S,PKTSSR sSPACE RECORDS FORWARD COMMAND FAILED 
055276 194456 TRAP CSERHRD 
055300 001017 «WORD 527 
055302 055676 -WORD T34P0S 
055304 011700 -WORD PKTSSR 
7702 055306 2708: CKLOOP ;LOOP IF SELECTED 
on 055306 104406 TRAP CSCLPi 
3 
7704 FRRAEEAEEEARAEAEEEAEEAEAEESEEEEEE ES 44S 4EEEEEEEEEESEEEEEEEEEEEEEEEEREEESL 
7705 3 
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TEST 5S: OPERATIONS AT EOT SEQ 0199 
A : EOT SHOULD BE SET AGAIN 
; 
7708 $906 6666 66660606666 6666 06 0660660060646 0666 60660606 0606606604006060606000000000686 
7709 3 
7710 055310 013701 055446 MOV T34BFR+6,R1 sPICK UP xXSTO 
7711 055314 010102 MOV R1,R2 sSET UP EXPECTED 
7712 055316 052702 000001 BIS #BITO,R2 ;SET THE EOT BIT ON IN EXPECTED 
7713 055322 020102 CMP R1,R2 sWAS THE BIT ON 
7714 055324 001404 BEQ 2803 3;8R, IF EOT WAS FOUND 
7718 055326 ERRHRD ERRNO, T34ETS,PKTSSR sECT FAILED TO SET AFTER SPACE CMD. 
055326 104456 TRAP CSERHRD 
055330 001020 . -WORD 528 
055332 056601 «WORD T34ETS 
me 055334 011700 «WORD PKTSSR 
7720 055336 2808: CKLOOP ;LOOP IF SELECTED 
7721 055336 104406 TRAP CSCLP1 
a 
7722 $9 OOOO EEEEEEEEEKEEEEEE OS O6 EOE OD OO 064666 04600006060600040464664460446 64404886 
7723 3 
Ln 3 ISSUE A REWIND COMMAND 
7 
7726 § 9666666666666 66046 664600606646 6060460406 0666606646046 0606604606600 046 066046004 4440% 
7727 3 
7728 055340 004737 010434 JSR PC ,REWIND ;REWIND CALL 
7729 055344 103411 BCS 3203 ;BR, IF TSSR IS OK (GOOD) 
7730 055346 016501 000000 MOV TSSRCRS),R1 ;GET TSSR 
7731 055352 010004 MOV RO,R4 ;SET UP PACKET 
7732 055354 004737 020104 JSR PC ,FATCHK sINC AND CHECK FOR MORE THAN 25 ERRORS 
7736 055360 ERRHRD ERRNO, T34RWN,PKTSSR ;TSSR IS INCORRECT AFTER REWIND 
055360 104456 TRAP CSERHRD 
055362 001021 -WORD 529 
055364 057246 «WORD T34RWN 
055366 011700 -WORD PKTSSR 
7737 055370 3208: CKLOOP ;LOOP IF SELECTED 
055370 104406 TRAP CSCLP1 
7738 055372 600$: 
7739 055372 ENDSUB 3>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 
055372 L10060: 
055372 104403 TRAP CsESuB 
7740 055374 004737 017360 JSR PC, TSTLOOP 300 WE NEED TO ITERATE TEST 
7741 055400 103002 BCC 163$ ;BR, IF NO LOOP REQUIRED 
7742 055402 000137 052040 JMP T34L00P sEXECUTE AGAIN 
7743 055406 163$: EXIT TST ;ALL DONE THIS TEST 
055406 104432 TRAP CSEXIT 


055410 002600 -WORD  110057-. 
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TEST 5: OPERATIONS AT EOT SEQ 0200 
7745 3* 
hn s;LOCAL STORAGE FOR THIS TEST 
og 
7749 055412 -BLKB 10-<.-TUV2AE7> 
7751 055420 T34PACKET: sCOMMAND PACKET FOR TEST 
7752 055420 100004 «WORD 100004 sWRITE CHARACTERISTICS COMMAND, WITH ACK 
7753 055422 055430 «WORD T34DATA sADDRESS OF CHARACTERISTICS BLOCK 
7754 055424 900000 «WORD 0 
7755 055426 000010 -WORD 8. sSTARTING VALUE OF BLOCK SIZE 
7756 055430 T34DATA: sCHARACTERISTICS DATA BLOCK 
7757 055430 055440 -WORD T34BFR sADDRESS OF MESSAGE BUFFER 
7758 055432 000000 -WORD O 
7759 055434 000012 -WORD 10. s;LENGTH OF MESSAGE BUFFER 
7760 055436 000000 -WORD O 
hy 055440 T34BFR: .BLKW 25. sMESSAGE BUFFER 
$ 
A sWRITE SUBSYSTEM MEMORY COMMAND PACKET 
3 
7766 055522 -BLKB 10-<.-TUV2AE7> 
7768 055530 T34PK2: 
7769 055530 100006 «WORD 100006 ;WRITE SUB SYS MEM COMMAND, AND ACK 
7770 ©55532 055570 -WORD T34BF2 sADDRESS OF SELECT BLOCK DATA 
7771 055534 000000 -WORD 0 
as | 055536 000006 -WORD 6. sSIZE OF DATA PACKET 
7775 055540 -BLKB 10-<.-TUV2AE7> 
7777 055550 T34PK3: 
7778 055550 100005 -WORD 100005 ;WRITE COMMAND, AND ACK . 
7779 055552 T34RB: 
7780 055552 000000 T34WB: .WORD OO sADDRESS OF WRITE/READ BUFFER 
7781 055554 000000 -WORD 0 
7782 055°56 000000 T34SZ: .WORD 0O sSIZE OF BUFFER (EXTENT) 
a -EVEN 
784 H 
7785 055560 000000 T34RSZ: .WORD 0 sLARGEST TAPE oe IN BYTES 
7786 055562 000000 T34CNT: .WORD 0 ;TAPE RECORD COUNTER 
i 055564 000000 T340LY: .WORD 0 ;DELAY COUNTER 
8 
tad 055566 000000 T34TRK: .WORD 0 ;HOLD TRACK NUMBER 
3 
7791 3 
7792 055570 T34BFe: 
7793 055570 010 T348S0: .BYTE 10 ;BSELO AREA 
7794 055571 200 T348S1: .BYTE 200 ;BSEL1 AREA 
7795 055572 000000 T34S2: .WORD 0 ;SEL 2 AREA 
7796 055574 000000 T34S3: .WORD 0 s;DATA AREA 
7797 : 
7798 3 
7799 -EVEN 
a ;TAPE MOTION PACKET COMMAND VALUES 
1 
7802 055576 100005 T34WD: .WORD 100005 sWRITE DATA CNEXT) 
7803 055600 100405 T34WOR: .WORD 100405 s;WRITE DATA RETRY 
7804 055602 102005 T34CON: .WORD 102005 ;WRITE CONTINOUS 
oo 055604 177777 WORD 177777 ;END OF DATA 
6 
7807 
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7809 
7810 
7811 
7812 
7813 





012701 
012721 
012721 
005021 
012721 
012721 
005021 
012721 
005021 
012711 
012702 
012762 
005742 
020227 
001371 
000207 





055420 
100004 
055430 


000012 
055440 


000024 
000000 
000030 
177777 


000000 


055440 
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7* 
sLOCAL TEXT MESSAGES FOR TEST 


T34ET: 


T34E0T: 
TST341D: 


T34RWN: . 


3* 


‘SNSA Early Werning Indicato: Just Received, Track = sD2' 
‘TSSR Incorrect After Position (SPACE RECORDS) Command’ 
‘WRITE TAPE MARK Beyond EOT Failed To Set EOT Bit (xXSTO)’ 


"READ REVERSE Command At EOT Didn’‘t Give Normal Termination (TSSR)’ 


‘Unable To Clear EOT Indication, (XSTO) Bit 0’ 


‘Skip File Mark Reverse (over entire tape) Failed To Set BOT (XSTO) Bit’ 


‘WRITE TAPE MARK At EOT Failed To Set Tape Status Alert’ 
‘WRITE DATA Beyond EOT Failed To Set Tape Status Alert’ 
‘WRITE DATA Beyond EOT Failed To Set EOT Bit (xXSTO): 
‘SPACE RECORDS Beyond EOT Failed To Set EOT Bit (XSTO)* 
*READ DATA Beyond E0OT Failed To Set EOT Bit (xSTO)’ 


‘POSITION Command Beyond EOT Into A Tepe Mark Failed To Set TMK (XSTO)’ 


‘EOT Not Found In 65000 3.5K Writes, (Use Shorter Tape)’ 
‘WRITE DATA OVER EOT GAVE NO TAPE STATUS ALERT’ 


-ASCIZ 


‘Operations At EOT’ 
‘TSSR Incorrect After Position CREWI 


) Command’ 


NOD 
‘TSSR Incorrect After SKIP TAPE MARK REVERSE Beyond EOT Mark’ 


‘EOT (XSTO) Not Set After SKIP TAPE MARK REVER 


. Beyond EOT' 


‘Unable To Clear TMK (XSTO) Bit Using Space Command’ 
‘TSSR Incorrect After READ FORWARD Command’ 
‘TSSR Incorrect After SKIP FILE MARK REVERSE’ 


i 
sROUTINE TO RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUES 
sWRITE SUBSYSTEM MEMORY COMMAND 


T34REST: 


64$: 


#T34PACKET,R1 
#100004, (R1)+ 
#T34DATA,(R1)+ 
(R1)+ 

#10. ,CR1)+ 
@T34BFR,(R1)+ 
(R1)+ 

#20. ,CR1)+ 
CR1)+ 

#0,(R1) 


#24. ,R2 
#177777, T34BFRCR2) 
-(R2) 


sSAVE THE REGISTERS 

sSTART OF THE PACKET 

sWRITE SUBSYSTEM MEM. WITH ACK 
sADDRESS OF CHARAISTICS DATA BLOCK 
sEXTENDED ADORESS 

sSIZE OF DATA BLOCK IN BYTES 
sADDRESS OF MESSAGE BUFFER 


sLENGTH OF MESSAGE BUFFER 


;SELECT DRIVE ZERO 
sNUMBER OF LOCATIONS TO BE CLEARED 
;ALL ONES TO MESSAGE BUFFER 
;BUMP DOWN TO NEXT LOCATION 
:R2 AT ZERO YET 
;KEEP GOING UNTIL DONE 
;RETURN 






























SEQ 0201 
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013737 
032737 


140411 


012701 
012721 
012721 
005021 
012721 
012701 
005021 
095021 
005011 
000207 


012701 





055450 055566 
000010 055566 


100001 
010134 
060120 
177776 
017124 
055566 


177760 


055530 
100006 
055570 


000006 
055570 


055550 
100905 


F 
3 
3 
EWCHK: 


T34RT3: 
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THIS SUBROUTINE CHECKS FOR EARLY WARNING SET AND IF SET 
IT ISSUES A BACKSPACE AND AN ERASE TO GET TO THE NEXT TRACK 


T34BFR+10, T34TRK 


BITS, T34TRK 


R2 
R2 
R2 
R2 
#177760,R2 


sSAVE ALL REGISTERS ETC. 
sREAD XSTAT1 FOR EW 

sWAS EW SET IN XSTATI 

sBR, IF IT WAS NOT 
sPARAMETERS FOR SPACE ROUTINE 
sSPACE 1 RECORD REVERSE 
sADDRESS OF AN ERASE COMMAND 
siSSUE THE ERASE COMMAND 
sWAIT FOR THE SSR BIT TO SET 
sGET TRACK NUMBER 

sSHIFT OVER 4 BITS TO BITO 
sSHIFT OVER 4 BITS TO BITO 
sSHIFT OVER 4 BITS TO BITO 
sSHIFT OVER 4 BITS TO BITO 
sONLY FOUR BITS PASS 


THIS MESSAGE USED TO PRINT EARLY WARNING MESSAGE. TRACK NINE 


DIO NOT ALWAYS GIVE INDICATION. 
ALWAYS DETECTED DURING A WRITE. 


THIS WAS BECAUSE IT WASN‘T 
SO MESSAGE REMOVED. . 


PRINTX @EWMSG,R2 ;“JUST RECEIVED EARLY WARNING IND. ” 
SEC sSET THE CARRY BIT 

BR 105$ sEXIT 

CLC sCLEAR CARRY (NO EW FOUND) 

RTS PC sRETURN 

-BLKB 10-<,-TUV2AE7> 

WORD 140411 sERASE DATA, CVC=1, AND ACK COMMAND 
SAVREG sSAVE THE REGISTERS 

MOV #T34PK2,R1 sSTART OF THE PACKET 

MOV #100006, (R1)+ sWRITE SUBSYSTEM MEM. WITH ACK 

MOV #T34BF2,(R1)+ sADDRESS OF DATA BLOCK 

CLR (R1)+ sEXTENDED ADDRESS 


MOV 6.,(R1)+ 
MOV @T34BF2,R1 


sSIZE OF DATA BLOCK IN BYTES 
sPOINT TO DATA SEL AREA 


CLR (R1)+ 

CLR (R1)+ 

CLR (R1) 

RTS PC sRETURN 

SAVREG sSAVE THE REGISTERS 


MOV @T34PK3,R1 
MOV #100005, (R1)+ 
CLR (R1)+ 


sSTART OF THE PACKET 
sWRITE TAPE. WITH ACK 
sADDRESS OF DATA BLOCK 


CLR (R1)+ sEXTENDED ADORESS 
CLR (R1) sSIZE OF DATA BLOCK 
RTS PC sRETURN 
ENDTST 


L10057: 
TRAP CSETST 








SEQ 0202 
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7934 060212 


060212 
060212 
060212 


060212 


060212 


060212 
060214 


60214 


060214 


7935 
7936 060214 





000015 
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-SBTTL HARDWARE PARAMETER CODING SECTION 


** 

THE HARDWARE PARAMETER CODING SECTION CONTAINS MACROS 
THAT ARE USED BY THE SUPERVISOR TO BUILD P-TABLES. THE 
MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT ARE 
INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES. THE 
MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICATIONS 
WITH THE OPERATOR. 


BGNHRD 
-MCALL_ M$PUSH,M$INCR,MSGNINS , M$GNGBL 
ISHRD=F $BGN 
MSPUSH TSNS,TSNESTLEV,F SHARD 
-MCALL MSINCR,MSSETS 
MS$INCR TSNESTLEV 
TSNESTLEV=TSNESTLEV+1 
MSSETS TSNS,\TSNESTLEV,F SHARD 
T$NS1=F $HARD 
T$ $HARD=T$ TAGNUM 
MSINCR T$TAGNUM 
T$ TAGNUM=T $ TAGNUM+ 1 
. IRP TAG, <\T$ $HARD> 
i <.WORD L‘ TAG‘ -L$HARD/2> 
MSGNINS <.WORD L10061-L$HARD/2> 
-IF LT SVCINSINSTR 
-MEXIT 


-ENDC 
-IF EQ SVCINS 
-LIST 
-WORD L10061 -L $HARD/2 
-NLIST 


-MEXIT 
-ENDC 
-IF GT SVCINS 


-ENDC 

MSGNGBL L$HARD 
-MCALL MS$GEN 
-IF NB,L$HARD 


-IF NB, 
M$GEN L$HARD, : »SVCGBL, 
ENDC 


a 6, 

M$GEN LS$HARD,:,SVCGBL,< > 
-IF LE SVCGBL 

-IIF EQ SVCGBL,.LIST 
L$HARD: : 

-IIF EQ SVCGBL,.NLIST 
-MEXIT 

-ENDC 


-ENDC 
-ENDC 


LSHARD: : 


GPRMA = HPM1,0,0,160000,177776, YES ;GET TSBA/TSDB REGISTER ADDRESS. 





SEQ 0203 


-WORD L10061-L $HARD/2 
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HARDWARE PARAMETER CODING SECTION 


060214 


000020 


000021 
060214 


000010 


000031 
00 
060214 





-MCALL MSRADIX,M$DEFAULT,MSEXCP ,M$WORD, MSCNTOP 
-IF ION A,O 

-ERROR ;INVALID RADIX 
ENOC 


TSTEMP=061 

-IF NE TSTEMP € 1 
-ERROR ;00D0 OFFSET 
-ENDC 

-IF LT G$OFSIZE-0 
-ERROR ;OFFSET TOO BIG 
-ENDC 

TS$CODE=GSPRMA + <0 * GSOFFSET> 
M$RADIX 0, T$TEMP 

-IF ION B,0 

T$ TEMP =G $RADB 

-MEXIT 

-ENDC 

-IF ION 0,0 

T$ TEMP =G$RADO 

-MEXIT 


-MEXIT 


TSTEMP=-1 

-ERROR ;ILL. RADIX “0” 
T$CODE=T$CODE ! T$TEMP 
M$DEFAULT YES, T$ TEMP 
-IF ION YES,YES 

TS TEMP=G$YES 

-MEXIT 

-ENDC 

.IF ION NO,YES 
T$TEMP=G$NO 

-MEXIT 


TSTEMP=-1 

-ERROR ;DEFAULT “YES” MUST BE “YES” OR “NO” 
TSCODE=TSCODE ! TSTEMP 

TSEXCP=0 

MSEXCP TSCODE,TSEXCP,G$LOLIM, T$LOLIM, 160000 
-IF IDN <@>,<160000> 

-IF LT GSOFSIZE- 

-ERROR ;INDIRECT PAR. TOO BIG 

-MEXIT 

-ENDC 

TSLOLIM=/2 

TSCODE=TSCODE ! GSEXCP 
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TSEXCP=TSEXCP ! G$LOLIM 
os IFF 


.IF B, 
160000 T#LOLiM-160000 


-ERROR ;ILL. DEFERRED MODE 
-ENDC 
-ENDC 
060214 MSEXCP TSCODE,TSEXCP,GSHILIM, T$HILIM, 177776 
-IF ION <@>, <177776> 
IF LT GSOFSIZE- 
-ERROR ;INDIRECT PAR. TOO BIG 
MEXIT 


-ENOC 

TSHILIM=/2 
TS$CODE=TSCODE ! GSEXCP 
— ne ! G$HILIM 


-IF 8B, 

177776 THILIM=177776 
-ERROR ;ILL. DEFERRED MODE 
-ENOC 


-ENDC 
060214 ee <>,<T$CODE> 
-IF NE I$SFT - FSBGN 
ye ; “COUNT” OPTION VALID ONLY IN S.W. QUES. 


-ENDC 
TSCODE=TSCODE ! G$CNTOP 
ENOC 


060214 M$WORD <TS$CODE,HPM1,T$LOLIM, T$HILIM> 
-MCALL MS$GNINS 
.IRP N,<T$CODE,HPM1, T$LOLIM, T$HILIM> 
M$GNINS <.WORD N> 
.ENOM 

060214 M$GNINS <.WORD TS$CODE> 
-IF LT SVCINSINSTR 
.MEXIT 


-ENDC 
-IF EQ SVCINS 
-LIST 


-WORD TS$CODE 
-NLIST 
-MEXIT 
-ENDC 
-IF GT SVCINS 
060214 000031 ae -WORD TSCODE 
060216 MSGNINS <.WORD HPM1> 
-IF LT SVCINSINSTR 
-MEXIT 
-ENDC 
-IF EQ SVCINS 
-LIST 
-WORD  HPM1 
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HARDWARE PARAMETER CODING SECTION SEQ 0206 
.NLIST 

.MEXIT 
“ENDC 
IF GT SVCINS 

060216 060246 ie .WORD HPM1 

060220 M$GNINS <.WORD T$LOLIM> 
.IF LT SVCINSINSTR 
“MEXIT 


-ENDC 
.IF EQ SVCINS 
.LIST 
.WORD TSLOLIM 
.NLIST 
.MEXIT 
.ENDC 
' LIF GT SVCINS 
060220 160000 aad .WORD TSLOLIM 
060222 MSGNINS <.WORD T$HILIM> 
.IF LT SVCINSINSTR 
MEXIT 
“ENDC 
IF €Q@ SVCINS 
“LIST 


-WORD TS$HILIM 
-NLIST 
-MEXIT 


-ENDC 
.IF GT SVCINS 
060222 177776 -WORD TSHILIM 
-ENDC 
-IF NE TSEXCP 
M$SWORD TSEXCP 
-ENDC 
IF NB 
M$WORD </2> 
-ENDC 
7937 060224 GPRMA HPM2,2,0,0,776, YES ;GET VECTOR ADDRESS. 
cy NS a a ee 
IF I . 
-ERROR ;INVALID RADIX 
-ENDC 
000000 ; TSTEMP=261 
-IF NE TSTEMP € 1 
-ERROR ;000 OFFSET 
-ENDC 
.IF LT GSOFSIZE-2 
-ERROR ;OFFSET TOO BIG 
-ENDC 
001001 TSCODE=G$PRMA + <2 « GSOFFSET> 
060224 MSRADIX 0, T$ TEMP 
.IF ION 8,0 
T$ TEMP =G$RADB 
-MEXIT 


-ENDC 
-IF ION 0,0 


—— 
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000020 TS TEMP =G$RADO 


T$ TEMP =G $RADD 
MEXIT 


-ENOC 

-IF ION L,O 
TS TEMP =G$RADL 
MEXIT 


-ENDC 

.IF ION A,O 

T$ TEMP =G$RADA 

-MEXIT 

- ENDC 

TSTEMP=-1 

-ERROR ;ILL. RADIX “0” 
001021 TSCODE=TS$CODE ! TSTEMP 

060224 M$DEFAULT YES, T$ TEMP 

-IF ION YES, YES 
000010 TS TEMP=G$YES 

-MEXIT 

-ENDC 

-IF ION NO,YES 


TSTEMP=-1 
-ERROR ;DEFAULT “YES” MUST BE “YES” OR “NO” 
001031 TSCODE=T$CODE ! TS$TEMP 
000000 TSEXCP=0 
060224 MSEXCP TSCODE,TSEXCP,G$LOLIM, T$LOLIM,0 
IF ION <@>,<O> 
-IF LT GSOFSIZE- 
-ERROR ;INDIRECT PAR. TOO BIG 
-MEXIT 
-ENDC 
T$LOLIM=/2 
TSCODE=T$CODE ! GSExCcP 
= or ! G$LOLIM 


.IF B, 
000000 T$LOLIM=0 
. IFF 
-ERROR ;ILL. DEFERRED MODE 
-ENDC 


-ENDC 
060224 MSEXCP TSCODE,TSEXCP,G$HILIM, T$HILIM, 776 
-IF ION <@>,<776> 
.IF LT G$OFSIZE- 
-ERROR ;INDIRECT PAR. TOO BIG 
-MEXIT 
-ENDC 
TSHILIM=/2 
TSCODE=TSCODE ! GSEXCP 
1 "yatta ! GS$HILIM 


pore 
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000776 


060224 


060224 


060224 


060224 
060226 


001031 


060226 060275 


060230 


069230 000000 
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SEQ 0208 


-IF 6, 

TSHILIM=776 

. IFF 

-ERROR ;ILL. DEFERRED MODE 
-ENDC 


-ENDC 
MSCNTOP <>,<TSCODE> 
IF NB 


“IF NE ISSFT - FSBGN 
-ERROR ; "COUNT" OPTION VALID ONLY IN S.W. QUES. 


-ENDC 
TSCODE=TSCODE ! GSCNTOP 
ENDC 


MSWORD <TSCODE,HPM2,T$LOLIM,T$HILIM> 
-MCALL MSGNINS 

. IRP N.<T$CODE,HPM2,T$LOLIM, T$HILIM> 
:—~“p <.WORD N> 


MSGNINS <.WORD TSCODE> 
.IF LT SVCINSINSTR 
“MEXIT 


-ENDC 
-IF EQ SVCINS 
-LIST 

- WORD 
-MEXIT 
-ENOC 
-IF GT SVCINS 
-ENDC 
MSGNINS <.WORD HPM2> 
-IF LT SVCINSINSTR 
-MEXIT 
-ENOC 
-IF EQ SVCINS 
-LIST 

- WORD 
-MEXIT 
-ENOC 
-IF GT SVCINS 
-ENOC 
M$GNINS <.WORD TSLOLIM> 
-IF LT SVCINSINSTR 
-MEXIT 
-ENOC 
-IF EQ SVCINS 
-LIST 

-WORD  TSLOLIM 

-NLIST 

-MEXIT 


-ENOC 
-IF GT SVCINS 


TS$CODE 
-NLIST 


-WORD TSCODE 


HPM2 
-NLIST 


-WORD TSLOLIM 
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-ENOC 
060232 MSGNINS <.WORD TSHILIM> 
-IF LT SVCINSINSTR 
-MEXIT 


-ENDC 
-IF EQ SVCINS 
-LIST 
-WORD  TSHILIM 


-NLIST 
-MEXIT 
-ENDC 
-IF GT SVCINS 
060232 000776 -WORD TSHILIM 
-ENDC 
-IF NE TSEXCP 
coy TSEXCcP 


7938 060234 GPRMD HPM3,4,0,340,0,7,YES sGET INTERRUPT PRIORITY. 

-MCALL M$RADIX,MS$DEFAULT,MSEXCP ,MSWORD,MSCNTOP 
-IF IDN A,O 
-IF EQ TSGMANID 
-ERROR ;ASCII RADIX VALID ONLY ON “GMANID” 
-ENOC 
-ENOC 

000000 TSTEMP=461 
-IF NE TSTEMP € 1 
-ERROR ;0D0D OFFSET 
-ENDC 
-IF LT GS$OFSIZE-4 
-ERROR ;OFFSET TOO BIG 
-ENDC 

002002 TSCODE=G$PRMD + <4 « GSOFFSET> 

060234 M$RADIX 0, T$TEMP 

-IF ION B,0 
T$ TEMP =G $RADB 
-MEXIT 
-ENOC 
-IF ION 0,0 

000020 TS TEMP =G$RADO 
-MEXIT 


-ENDC 

-IF ION D,O 
T$ TEMP =G$RADD 
-MEXIT 


-ENDC 

-IF ION L,O 
T$ TEMP =G$RADL 
-MEXIT 


-ENOC 

-IF ION A,O 
TS TEMP =G$RADA 
-MEXIT 


-ENOC 
TSTEMP=-1 





bun ree eee 
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—— 


030234 


060234 


060234 


060234 


060234 


002022 


000010 


002032 
000000 


000000 


000007 





-ERROR ;ILL. RADIX “0” 
TSCODE=TSCODE ! TSTEMP 
MSDEFAULT YES, T$ TEMP 

-IF ION YES, YES 

TSTEMP=GSYES 

-MEXIT 

-ENOC 

-IF IDN NO,YES 

T$ TEMP =G$NO 

-MEXIT 

-ENDC 

TSTEMP=-1 

-ERROR ;DEFAULT “YES” MUST BE “YES” OR “NO” 
TSCODE=TSCODE ! TSTEMP 
TSEXCP=0 

MSEXCP TSCODE,TSEXCP,G$LOLIM, T$LOLIM,0 
-IF ION <@>,<0> 

.IF LT GSOFSIZE- 

-ERROR ;INDIRECT PAR. TOO BIG 
-MEXIT 

-ENDC 

TSLOLIM=/2 

TSCODE=TSCODE ! GSEXCP 
TSEXCP=TSEXCP ! G$LOLIM 

-IFF 

-IF 8B, 

T$LOLIM=0 

. IFF 

-ERROR ;ILL. DEFERRED MODE 
-ENOC 


-ENOC 

MSEXCP TSCODE,TSEXCP,G$HILIM, T$HILIM,7 
-IF IDN <@>,<7> 

-IF LT GSOFSIZE- 

-ERROR ;INDIRECT PAR. TOO BIG 
-MEXIT 

-ENOC 

TSHILIM=/2 

TSCODE=TSCODE ! GSEXCP 
TSEXCP=TSEXCP ! G$HILIM 

.IFF 

-IF B, 

TSHILIM=7 

-IFF 

-ERROR ;ILL. DEFERRED MODE 
-ENDC 


-ENDC 

M$CNTOP <>,<T$CODE> 

.IF NB 

-IF NE I$SFT - FSBGN 

oo ; “COUNT” OPTION VALID ONLY IN S.W. QUES. 
-MEX 


-ENDC 
TSCODE=TSCODE ! G$CNTOP 
ENDC 


M$WORD <TSCODE,HPM3,340, T$LOLIM, T$HILIM> 
-MCALL MSGNINS 


SEQ 0210 
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060234 


060234 
060236 


060236 
060240 


060240 
060242 


060242 
060244 





002032 


060321 


000340 


000000 
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- IRP N,<TS$CODE,HPM3,340,T$LOLIM, T$HILIM> 


MSGNINS <.WORD N> 
ENO 


. M 

MSGNINS <.WORD T$CODE> 
-IF LT SVCINSINSTR 
-MEXIT 


-ENDC 
-IF EQ SVCINS 
«LIST 
-WORD TSCODE 


-NLIST 
-MEXIT 


-ENDC 
-IF GT SVCINS 


-ENDC 

MSGNINS <.WORD HPM3> 
-IF LT SVCINSINSTR 
-MEXIT 


-ENOC 
-IF EQ SVCINS 
-LIST 
-WORD HPM3 
-NLIST 
-MEXIT 
-ENOC 
-IF GT SVCINS 
ENDC 


M$GNINS <.WORD 340> 
.IF LT SVCINSINSTR 


-MEXIT 
-ENOC 
-IF EQ SVCINS 
-LIST 
-WORD 340 
-NLIST 
-MEXIT 


-ENDC 
-IF GT SVCINS 


-ENDC 

M$GNINS <.WORD T$LOLIM> 
-IF LT SVCINSINSTR 
-MEXIT 


-ENDC 
-IF EQ SVCINS 
-LIST 
-WORD  TS$LOLIM 
-NLIST 
-MEXIT 
-ENDC 
-IF GT SVCINS 
ENDC 


M$GNINS <.WORD T$HILIM> 
IF LT SVCINSINSTR 











SEQ 0211 


«WORD TSCODE 
-WORD HPM3 
-WORD 340 


T$LOLIM 
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060244 000007 


7939 060246 
060246 


060246 
060246 


pists rein see sone ee ee ete ee 


-MEXIT 
-ENDC 
-IF EQ SVCINS 
-LIST 
-WORD  TS$HILIM 
-NLIST 


“IF GT SVCINS 
.WORD 


“IF NE TSEXCP 
M$WORD TSEXCP 


M$WORD </2> 


ENOHRD 
-MCALL M$POP,M$GNINS,M$GNTAG,MSENDERR 
MSPOP TSNS,T$NESTLEV,T$TEMP 
-MCALL MSGETS,M$DECR 
-IF LT T$NESTLEV 
-ERROR T$NESTLEV ; MACRO T$NS UNDERFLOW 


MSGETS TS$NS,\T$NESTLEV,T$TEMP 
T$TEMP=T$NS1 

M$SDECR TSNESTLEV 
T$NESTLEV=T$NESTLEV-1 

-IF EQ FSHARD-TS$TEMP 

M$GNINS .EVEN 

-IF LT SVCINSINSTR 

-MEXIT 


-ENDC 
-IF EQ SVCINS 
-LIST 


-MEXIT 

-ENOC 

-IF GT SVCINS 

-ENDC: 

MSGNTAG L,T$$HARD 

-MCALL M$GEN 

M$GEN L,\T$$HARD,SVCTAG 


-IF LE SVCTAG 
-IIF EQ SVCTAG,.LIST 


L10061: 

-IIF EQ SVCTAG,.NLIST 
-MEXIT 

-ENDC 

S$LSYM=TSLSYM 

ISHRD=F $END 


-IFF 
MSENDERR ENDHRD , T$ TEMP 


T$HILIM 


SEQ 0212 
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-ENDC 
7940 060246 104 105 126 HPMi:  .ASCIZ ‘DEVICE ADDRESS (TSSR) ' 
7941 060275 111 116 124 HPM2: .ASCIZ ‘INTERRUPT VECTOR ' 
7942 060321 111 116 124 HPM3: .ASCIZ ‘INTERRUPT PRIORITY : 
ane -EVEN 








SEQ 0213 
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7956 060352 


060352 
060352 
060352 


060352 


060352 


060352 
060354 


060354 


060354 


7957 060354 


000040 


000001 


000005 
010062 


010063 


000011 





-SBTTL SOFTWARE PARAMETER CODING SECTION 


++ 

THE SOFTWARE PARAMETER CODING SECTION CONTAINS MACROS 
THAT ARE USED BY THE SUPERVISOR TO BUILD P-TABLES. THE 
MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT ARE 
INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES. THE 
MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICATIONS 
WITH THE OPERATOR. 


NSFT 


BG 
-MCALL M$PUSH,M$INCR,MS$GNINS,M$GNGBL 
I$SFT=F $B6GN 
M$PUSH TSNS,TSNESTLEV,F $SOFT 


MCALL M$INCR,MS$SETS 


M$INCR TS$NESTLEV 
T$NESTLEV=TS$NESTLEV+1 

MSSETS TSNS,\T$NESTLEV,FS$SOFT 
T$NS1=F $SOFT 

T$$SOF T=T$ TAGNUM 

M$INCR T$TAGNUM 

T$ TAGNUM=T $TAGNUM+1 


IRP TAG, <\T$$SOF T> 


M$GNINS <.WORD L‘ TAG‘ -L$SOFT/2> 


END 


-ENDM 

MSGNINS <.WORD L10062-L$SOFT/2> 
-IF LT SVCINSINSTR 

-MEXIT 


-ENDC 
-IF EQ SVCINS 
-LIST 


-WORD L10062-L$SOFT/2 
-NLIST 


-MEXIT 
-ENDC 
-IF GT SVCINS 


-ENDC 
MSGNGBL L$SOFT 


MCALL MS$GEN 
IF NB,L$SOFT 


-IF NB, 
MSGEN LS$SOFT,:,SVCGBL, 


ENOC 
IF 8B, 


MSGEN  LS$SOFT,:,SVCGBL,< > 


L$SOFT:: 

-IIF EQ SVCGBL,.NLIST 

.MEXIT 

-ENDC 

L$SOFT:: 

-ENDC 

-ENDC 

GPRML SPM1,0,-1,YES ;GET RAM DUMP FLAG 


-MCALL M$RADIX,M$DEFAULT,M$WORD ,MSCNTOP 


IF LE SVCGBL 
IIF EQ SVCGBL,.LIST 






SEQ 0214 


-WORD L10062-L$SOFT/2 
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000000 TSTEMP=061 
-IF NE TSTEMP € 1 
-ERROR ;0DD OFFSET 
-ENDC 
-IF LT G$OFSIZE-0 
-ERROR ;OFFSET TOO BIG 
ENDC 


000000 T$CODE=G$PRML + <0 *« GS$OFFSET> 
060354 MSRADIX L,T$TEMP 
-IF ION B,L 
T$ TEMP =G$RADS 
-MEXIT 


-ENDC 

.IF ION O,L 
T$ TEMP =G$RADO 
-MEXIT 


-ENOC 

-IF ION D,L 
T$ TEMP =G $RADD 
-MEXIT 


-ENDC 

-IF ION L.L 
000120 T$ TEMP =G $RADL 

-MEXIT 


-ENDC 

-IF ION A,L 
T$TEMP=G$RADA 
-MEXIT 


-ENDC 

TSTEMP=-1 

-ERROR ;ILL. RADIX "L” 
000120 T$CODE=T$CODE ! T$TEMP 

060354 M$DEFAULT YES, T$ TEMP 

.IF ION YES, YES 
000010 T$TEMP=G$YES 

-MEXIT 

-ENDC 

-IF ION NO,YES 

T$ TEMP =G$NO 

-MEXIT 


T$TEMP=-1 
-ERROR ;DEFAULT “YES” MUST BE “YES” OR “NO” 
000130 TSCODE=TSCODE ! TSTEMP 
060354 MSCNTOP <>,<T$CODE> 
-IF NB 
-IF NE I$SFT - FS$BGN 
oe ; “COUNT” OPTION VALID ONLY IN S.W. QUES. 


-ENDC 
T$CODE=TSCODE ! G$CNTOP 
-ENOC 
060354 MSWORL <TS$CODE,SPM1,-1> 
-MCALL M$GNINS 
- IRP N,<TSCODE,SPM1,-1> 
M$GNINS <.WORD N> 
-ENDM 


a ent 
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060354 


060354 
060356 


060356 
060360 


060360 


7958 060362 


060362 


-— 


000130 


060376 


177777 


000000 


001000 
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MSGNINS <.WORD TS$CODE> 
.IF LT SVCINSINSTR 


-MEXIT 
-ENOC 
-IF EQ SVCINS 
-LIST 
-WORD TSCODE 
-NLIST 
-MEXIT 
-ENDC 
-IF GT SVCINS 
ENODC 


M$GNINS <.WORD SPM1> 
.IF LT SVCINSINSTR 


-MEXIT 
-ENDC 
-IF EQ SVCINS 
-LIST 
-WORD  SPM1 
-NLIST 
-MEXIT 
-ENDC 
-IF GT SVCINS 
ENDC 


M$GNINS <.WORD -1> 
.IF LT SVCINSINSTR 


-MEXIT 

-ENDC 

-IF EQ SVCINS 
«LIST 

-WORD -1 
-NLIST 

-MEXIT 

-ENDC 

-IF GT SVCINS 
-ENDC 

-IF NB 

M$WORD </2> 

-ENDC 


GPRML SPM4,2,-1.,YES 
-MCALL M$RADIX,M$DEFAULT,M$WORD ,M$CNTOP 
TSTEMP=261 
-IF NE TSTEMP € 1 
-ERROR ;O0DD OFFSET 
-ENDC 
-IF LT GS$SOFSIZE-2 
-ERROR ;OFFSET TOO BIG 
ENDC 


T$CODE=G$PRML + <2 # GSOFFSET> 
M$RADIX L,T$TEMP 

-IF ION B,L 

T$ TEMP =G$RADB 

-MEXIT 


-ENOC 


Page 116-2 







SEQ 0216 


-WORD TSCODE 
-WORD SPM1 
-WORD -1 


; GET ITERATION CONTROL. 
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-IF ION O,L 
T$ TEMP =G $RADO 
-MEXIT 

-ENDC 

-IF ION D,L 
T$ TEMP =G$RADD 
-MEXIT 


-ENDC 

-IF ION L,L 
000120 T$ TEMP =G$RADL 

-MEXIT 


-ENDC 

.IF ION A,L 
T$TEMP=G$RADA 
-MEXIT 


-ENDC 
TSTEMP=-1 
-ERROR ;ILL. RADIX “L” 
001120 TSCODE=TSCODE ! TSTEMP 
060362 M$DEFAULT YES, T$ TEMP 
-IF ION YES, YES 
000010 TS TEMP=G$YES 
-MEXIT 


-ENDC 
-IF ION NO,YES 
T$ TEMP =G$NO 







-ERROR ;DEFAULT “YES” MUST BE “YES” OR “NO” 
001130 T$CODE=T$CODE ! T$TEMP 
060362 MS$CNTOP <>,<T$CODE> 
.IF NB 
-IF NE I$SFT - FS$BGN 
cone ; “COUNT” OPTION VALID ONLY IN S.W. QUES. 


-ENDC 
TSCODE=T$CODE ! G$CNTOP 
-ENDC 


060362 M$WORD <T$CODE,SPM4,-1> 
-MCALL M$GNINS 
- IRP N,<T$CODE,SPM4,-1> 
M$GNINS <.WORD N> 
ENDM 


060362 M$GNINS <.WORD T$CODE> 
-IF LT SVCINSINSTR 
-MEXIT 
-ENDC 
-IF EQ SVCINS 
-LIST 

-WORD TSCODE 
-NLIST 
-MEXIT 
-ENDC 
-IF GT SVCINS 


060362 001130 TSCODE 





-ENDC 


—— 
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060364 


060364 060442 
060366 


060366 177777 


7959 060370 
000000 


002000 
060370 


000120 


—— 
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MSGNINS <.WORD SPM4> 
-IF LT SVCINSINSTR 


-MEXIT 
-ENDC 
-IF EQ SVCINS 
-LIST 
-WORD SPM4 
-NLIST 
-MEXIT 
-ENOC 
-IF GT SVCINS 
ENDC 


MS$GNINS <.WORD -1> 
.IF LT SVCINSINSTR 


-MEXIT 

-ENDC 

-IF EQ SVCINS 
-LIST 

-WORD -1 
-NLIST 

-MEXIT 

-ENDC 

-IF GT SVCINS 
-ENDC 

.IF NB 

M$WORD </2> 

-ENDC 


SPM6 ,4,-1, YES 


GPRML 
-MCALL M$RADIX,M$DEFAULT,M$WORD ,MSCNTOP 


TS TEMP=461 

-IF NE TSTEMP € 1 
-ERROR ;00D OFFSET 
-ENDC 

-IF LT G$OFSIZE-4 
— sOFFSET TOO BIG 


7: 

T$CODE=G$PRML ‘+ <4 « GSOFFSET> 
M$RADIX L,T$TEMP 

-IF ION B,L 

—— 


T$ TEMP =G$RADO 
-MEXIT 

-ENDC 

-IF ION D,L 
T$ TEMP =G$RADD 
-MEXIT 


“IF IDN A,L 





Page 116-4 


«WORD SPM4 


-WORD -1 


sGET EOT SHECK STATUS 





SEQ 0218 
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TS TEMP =G$RADA 
-MEXIT 


-ERROR ;ILL. RADIX "L” 

002120 T$CODE=TSCODE ! T$TEMP 
060370 MSDEFAULT YES, T$ TEMP 

.IF ION YES, YES 
000010 TS TEMP=G$YES 

»MEXIT 

-ENOC 

.IF ION NO,YES 

T$ TEMP =G$NO 


-ERROR ;DEFAULT “YES” MUST BE “YES” OR “NO” 
002130 T$CODE=T$CODE ! T$TEMP 
MS$CNTOP <>,<T$CODE> 
.IF NB 
-IF NE I$SFT - FSBGN 
poe ; “COUNT” OPTION VALID ONLY IN S.W. QUES. 


-ENDC 
T$CODE=T$CODE ! G$CNTOP 
-ENDC 

060370 M$WORD <T$CODE,SPM6,-1> 
-MCALL M$GNINS 
.IRP N,<T$CODE,SPM6,-1> 
MS$GNINS <.WORD N> 
ENDM 


060370 M$GNINS <.WORD T$CODE> 


060370 


-IF LT SVCINSINSTR 
-MEXIT 
-ENDC 
-IF EQ SVCINS 
-LIST 

-WORD TSCODE 

-NLIST 

-MEXIT 


-ENDC 
-IF GT SVCINS 
060370 002130 
-ENDC 
060372 M$GNINS <.WORD SPM6> 
-IF LT SVCINSINSTR 
-MEXIT 
-ENDC 
-IF EQ SVCINS 
-LIST 
-WORD SPM6 
-NLIST 
-MEXIT 


-ENDC 
-IF GT SVCINS 
-ENDC 


060372 060472 
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060374 MSGNINS <.WORD -1> 


-IF LT SVCINSINSTR 
-MEXIT 

-ENOC 

-IF EQ SVCINS 





= | : 
-NLIST 


LIF GT SVCINS 


060374 177777 «WORD -1 


M$WORD </2> 


7960 060376 ENOSFT 
-MCALL M$POP,M$GNINS,MSGNTAG, MSENDERR 
060376 MSPOP TSNS,TSNESTLEV,TSTEMP 
-MCALL MSGETS,MSDECR 
-IF LT TSNESTLEV 
-ERROR TSNESTLEV ; MACRO T$NS UNDERFLOW 


060376 MSGETS TSNS,\TSNESTLEV, T$TEMP 
000005 TSTEMP=T$NS1 
060376 MSDECR TSNESTLEV 
000000 TSNESTLEV=TSNESTLEV-1 
-IF EQ FS$SOFT-TSTEMP 
060376 MSGNINS .EVEN 
-IF LT SVCINSINSTR 
-MEXIT 


-ENDC 
-IF EQ SVCINS 
-LIST 


-MEXIT 
-ENDC 
-IF GT SVCINS 


-NLIST 


-EVEN 
-ENDC 
060376 MSGNTAG L,T$$SOFT 
. MSGEN 
060376 MSGEN =L,\TSSSOFT,SVCTAG 
-IF LE SVCTAG 
-IIF EQ SVCTAG, .LIST 
110062: 
-IIF EQ SVCTAG,.MLIST 
-MEXIT 
-ENDC 
060376 10062: 
010000 SSLSYM=TSLSYM 
000041 I$SF T=F SEND 


MSENDERR ENDSFT, TSTEMP 
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7975 060560 


060560 


060560 


060560 
060562 


060562 


069562 


a 


105 
111 


111 


000012 


000005 


000001 
000005 


116 
116 


116 
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101 SPMi:  .ASCIZ ‘ENABLE CONTROLLER RAM DUMP ON ERROR‘ 
110 SPM4: .ASCIZ ‘INHIBIT ITERATIONS 


110 SPM6:  .ASCIZ ‘INHIBIT EOT CHECKING (REDUCES RUN TIME BY 22 MINUTES)’ 









SEQ 0221 





{SBTTL PATCH AREA 
3° 
;DISPATCH TABLE 


° 
; ##@ MCVE TO FRONT OF PROGRAM FOR RELEASE *#e¢ 
3- 


DISPATCH TESTNO 
-MCALL MS$WORD,M$GNGBL 
«RADIX 10 
MSWORD \TESTNO 
-MCALL MS$GNINS 


.IRP N,<5> 
M$GNINS <.WORD N> 
-ENOM 


MSGNINS <.WORD 5> 
-IF LT SVCINSINSTR 


-MEXIT 
-ENDC 
-IF EQ SVCINS 
-LIST 
- WOR 5 
-NLIST 
-MEXIT 


-ENOC 
-IF GT SVCINS 


-ENOC 

M$GNGBL LS$DISPATCH 
-MCALL MSGEN 

-IF NB,LSDISPATCH 


-IF NB, 
M$GEN LS$DISPATCH,:,SVCGBL, 
-ENDC 


-IF 6B, 

M$GEN LSDISPATCH,:,SVCGBL,< > 
-IF LE SVCGBL 

-IIF EQ SVCGBL , -LIST 
L$DISPATCH: 

-IIF €Q SVCGBL, -NLIST 

-MEXIT 

-ENOC 


-ENDC 

-ENOC 

TSTEMP=1 

-REPT TESTNO 

-IRP N, <\TSTEMP> 
M$WORD T‘N 

-ENOM 


L$DISPATCH:: 
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TSTEMP=TSTEMP + 1 

-ENOR 

- IRP N, <\TSTEMP> 
T'N 


060562 M$SWORD T1 
-MCALL MS$GNINS 
.IRP N,<Ti> 
MSGNINS <.WORD N> 
.ENDM 

060562 MSGNINS <.WORD Ti> 
-IF LT SVCINSINSTR 
.MEXIT 


-ENDC 
-IF EQ@ SVCINS 
«LIST 

-WORD 


T1 
-NLIST 
-MEXIT 


-ENDC 
.IF GT SVCINS 
060562 023642 .WORD Ti 
-ENOC 
000002 TSTEMP=TSTEMP + 1 
- IRP N. <\TSTEMP> 
M$WORD T'N 


060564 M$WORD T2 
-MCALL MSGNINS 
-IRP N,<T2> 
MSGNINS <.WORD N> 
-ENDM 

060564 MSGNINS <.WORD T2> 
-IF LT SVCINSINSTR 
-MEXIT 


-ENOC 
-IF EQ SVCINS 
-LIST 


-MEXIT 


-ENDC 
-IF GT SVCINS 
060564 032326 -WORD T2 
-ENOC 
000003 TSTEMP=TSTEMP + 1 
- IRP N,<\TSTEMP> 
M$WORD T’‘N 


060566 M$WORD T3 
-MCALL MS$GNINS 
- IRP N,<T3> 
M$GNINS <.WORD N> 
ENDM 


060566 M$GNINS <.WORD T3> 
.IF LT SVCINSINSTR 
“MEXIT 


Len ee es aes 


A ES SE |S RR A St RT A 


CZTKHB TK-25 FRT END FUNC 04 MACRO YOS.02 Tuesday 25-Jun-85 10:28 Page 116-9 
PATCH AREA SEQ 0223 





-ENOC 
-IF EQ SVCINS 
«LIST 


-WORD 13 
»NLIST 
-MEXIT 
-ENDC 
-IF GT SVCINS 
060566 041322 
-ENDC 
000004 TSTEMP=TSTEMP + 1 
.IRP N,<\TSTEMP> 
M$WORD T'N 
.~ENDM 
060570 M$WORD T4 
MCALL MS$GNINS 
.IRP N,<T4> 
M$GNINS <.WORD N> 
.ENDOM 
060570 M$GNINS <.WORD T4> 
-IF LT SVCINSINSTR 
-MEXIT 
-ENOC 
-IF EQ SVCINS . 
-LIST 
-WORD T4 
-NLIST 
-MEXIT : 


-ENDC 
-IF GT SVCINS 
060570 046640 


-ENDC 

000005 TS$TEMP=TSTEMP + 1 
-IRP N, <\TSTEMP> 
M$WORD T'N 


060572 M$WORD TS 
-MCALL MS$GNINS 
.IRP N,<T5> 
MSGNINS <.WORD N> 
-ENDM 

060572 M$GNINS <.WORD T5> 
ar Lf SVCINSINSTR 
-MEXIT 


-ENDC 
-IF EQ SVCINS 
-LIST 

-WORD 15 
-NLIST 
-MEXIT 


-ENOC 
-IF GT SVCINS 
069572 053000 


-ENDC 
000006 T$TEMP=TSTEMP + 1 
000010 -RADIX 8 


7976 





Aine ee 


CZTKHB TK-25 FRT END FUNC @4 


PATCH AREA 


hae 060574 


7988 060574 
060574 


060574 


060574 
060576 


060576 





000001 


060612 


000005 
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FINALLY A GENEROUS PATCH AREA. 


AND AN ADJUSTMENT TO ACCOUNT FOR THE “LASTAD BIT7” HACK 
DESCRIBED IN “SUPPRG.MEM” (FOR REV C). 


P 28 

; —_ NZ, .€377 
; i 

H 


LASTAD sSET LAST USED ADDRESS. 
-MCALL MSGNINS,M$GNGBL 
MSGNINS .EVEN 
-IF LT SVCINSINSTR 


.MEXIT 
-ENDC 
-IF EQ SVCINS 
-LIST 
EVE 
-NLIST 
-MEXIT 
-ENDC 
-IF GT SVCINS 
-EVEN 
-ENDC 
TS$LAST=1 
-IF EQ O$SETUP 
M$WORD <Q> 
M$WORD <Q> 
.IFF 


M$GNINS <.WORD TSFREE> 
-IF LT SVCINSINSTR 


-MEXIT 
-ENDC 
-IF EQ SVCINS 
-LIST 
-WORD TSFREE 
-NLIST 
-MEXIT 


-ENDC 
-IF GT SVCINS 


-WORD TSFREE 


-ENDC 
MSGNINS <.WORD T$SIZE> 
-IF LT SVCINSINSTR 
-MEXIT 
-ENDC 
-IF EQ SVCINS 
-LIST 
-WORD T$SIZE 
-NLIST 
-MEXIT 
-ENDC 
-IF GT SVCINS 


-ENDC 


-WORD TS$SIZE 





SEQ 0224 








- 
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PATCH AREA SEQ 0225 
-ENDC 
000000 SVCGBL=0 
050600 M$GNGBL L$LAST 


-MCALL MS$GEN 
-IF NB,LSLAST 
-IF NB, 

-ENDC 

060600 M$GEN LS$LAST,:,SVCGBL,< > 


-IF LE SVCGBL 
060600 L$LAST:: 


L$LAST:: 
-NLIST 


-ENDC 
000005 T$LTNO=T$TESTNUM 
7989 -SBTTL HARD CODED P-TABLE 
7990 34 
haa 3 DIAGNOSTIC IS PRE-PARAMETERIZED PER THIS TABLE 
2 ieee 
7993 060600 BGNSETUP 4 
-MCALL MS$INCR 
-IF NE FSEND - IS$SETUP 
-ERROR ; ONLY 1 SETUP! 


“IF NE TS$LAST-1 
“ERROR ; “LASTAD” MUST PRECEDE “BGNSETUP” 


-ENDC 
000040 I$SETUP=F $BGN 
010063 T$ $PTAB=T$TAGNUM 
060600 M$INCR T$TAGNUM 
010064 T$ TAGNUM=T $ TAGNUM+1 
-IF NB 1 
000001 T$PCNT=1 
000001 T$$PC=1 


-ERROR ; MISSING # OF PTABLES 
T$PCNT=1 
-ENDC 
7994 060600 BGNP TAB 
-MCALL MSINCR,M$DECR ,M$WORD,MSGNINS ,MSGNTAG 
-IF NE F$BGN-I$SETUP 
-ERROR ; MISSING “BGNSETUP” 
-MEXIT 
-ENDC 
-IF NE FSEND-ISPTAB 
-EPROR ; MISSING “ENDPTAB” 


-MEXIT 

-ENDC 
000040 I$PTAB=F $BGN 
010064 T$PTAB=T$TAGNUM 


ascetic a lian 


CZTKHB TK-25 FRT END FUNC 04 





HARD CODED P-TABLE 


060600 


050600 


060600 


060600 


060600 


060602 


060602 


060602 
060604 
060604 


060604 


MOSES a a ie 


010065 
000000 


000000 


010065 
010066 


000003 
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. MEXIT 








SEQ 0226 


M$SINCR TS$TAGNUM 
T$ TAGNUM=T $TAGNUM+ 1 
M$DECR TS$PCNT 
TS$PCNT=TS$PCNT-1 

IF LE T$PCNT 
M$WORD <0> 

-MCALL MS$GNINS 
.IRP N,<0> 
MS$GNINS <.WORD N> 
END 


-ENOM 
MSGNINS <.WORD 0> 
-IF LT SVCINSINSTR 


-ENDC 
-IF EQ SVCINS 
«LIST 


-WORD 0O 
-NLIST 

-MEXIT 

-ENDC 

-IF GT SVCINS 

-WORD 0 

-ENDC 

-IFF 


-IRP N,<\T$PTAB> 
MSGNINS <.WORD L‘N> 
.ENDM 


-ENDC 

T$$DAT=T$TAGNUM 

M$INCR  T$TAGNUM 

T$ TAGNUM=T $ TAGNUM+ 1 

- IRP N,<\T$$DAT> 
MSGNINS <.WORD L‘N-./2-1> 


-ENDM 

MSGNINS <.WORD L10065-./2-1> 
-IF LT SVCINSINSTR 

-MEXIT 


-ENDC 
-IF EQ SVCINS 
-LIST 
-WORD L10065-./2-1 
-NLIST 
-MEXIT 
-ENDC 
-IF GT SVCINS 
-ENOC 
MSGNTAG L,T$$PTAB 
-MCALL MS$GEN 
MSGEN  L,\T$$PTAB,SVCTAG 
-IF LE SVCTAG 
-IIF EQ SVCTAG,.LIST 


L10063: 
-IIF EQ SVCTAG,.NLIST 
-MEXIT 


-ENDC 


-WORD L10065-./2-1 


(eS SRE ner 
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HARD CODED P-TABLE SEQ 0227 
010064 T$$PTAB=TSPTAB 
060604 MSINCR TS$PTNUM 

000001 T$PTNUM=TS$PTNUM+1 

7995 060604 172522 - WORD 172522 

7996 060606 000224 . WORD 224 

7997 060610 000240 . WORD PRIOS 

7998 060612 ENDPTAB 


LIF NE FSBGN - I$PTAB 
“ERROR ; MISSING “BGNPTAB” 


E 
000041 I$PTAB=F $END 
060612 MSGNTAG L,T$$DAT 
-MCALL MS$GEN 
060612 MSGEN L,\T$$DAT,SVCTAG 
-IF LE SVCTAG 
-IIF EQ SVCTAG,.LIST 


L10065: 
-IIF EQ SVCTAG, .NLIST 
-MEXIT 


-ENDC 
060612 
7999 060612 ENDSETUP 
-IF NE FS$BGN - I$SETUP 
-ERROR ; MISSING "BGNSETUP” 
-MEXIT 
-ENDC 
000041 I$SETUP=F $END 
-IF NE TS$$PC - T$PTNUM 
-ERROR ; PTABLE COUNT INCORRECT 
-ENDC 
060612 TSFREE=. 
000005 T$SIZE=.-L$LAST / 2 
000001 T$PTHV=T$PTNUM 
8000 
8001 000001 - END 





— 
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Symbol table 

ADDSSR 011772 
ADR = 000020 
AMBTSS 006332 
ASSEMB= 000010 
A1716 = 000003 
BADDAT 003114 
BADSSR 016554 
BAR = 174402 
BENBSW 002176 
BIE = 040000 
BITO = 000001 
BITOO = 000001 
BITO1 = 000002 
BITO2 = 000004 
BITO3 = 000010 
BITO4 = 000020 
BITOS = 000040 
BITO6 = 000100 
BITO7 = 000200 
BITO8 = 000400 
BITO9 = 001000 
BIT1 = 000002 
BIT10 = 002000 
BIT11 = 004000 
BIT12 = 010000 
BIT13 = 020000 
BIT14 = 040000 
BIT15 = 100000 
BIT2 = 000004 
BIT3 = 000010 
BIT4 = 000020 
BITS = 000040 
BIT6 = 000100 
BIT7 = 000200 
BIT8 = 000400 
BIT9 = 001000 
BOE = 000400 
BRINIT 004361 
BSELO = 000000 
BSEL1 = 000001 
CHKAMB 016720 
CHKMAN 021406 
CHKTSS 017240 
CKDROP 020156 
CKEMAX 020004 
CKMSG 011212 
CKMSG2 011332 
CKRAM 010534 
CKRAM2 011110 
CMPMEM 020562 
CONFIG 020224 
COUNT 002256 
CSR = 174400 
CSRADD 002156 
CTAB 003122 
CTABE 003134 
CTABM 003122 


G 


o 


DAHHDOHHHWOOHAHAAIAIAAAHAAIAHAHANAHAHAHAARHHAH © OH 


CsAU = 
C$AUTO= 
CSBRK = 
C$BSEG= 
C$BSUB= 
CSCEFG= 
CSCLCK= 
CSCLEA= 
CsCLOS= 
CSCLPi= 
CsCVEC= 
C$OCLN= 
C$D0DU= 
CSORPT= 
CsDU = 
CsEDIT= 
CSERDF = 
CSERHR= 
CSERRO= 
CSERSF= 
CSERSO= 
CSESCA= 
CSESEG= 
CSESUB= 
CSETST= 
CSEXIT= 
C$GETB= 
C$GETW= 
C$GMAN= 
C$GPHR= 
C$GPLO= 
C$GPRI= 
CSINIT= 
C$INLP= 
C$MANI= 
CSMEM = 
C$MSG = 
CSOPEN= 
C$PNTB= 
CS$PNTF= 
CSPNTS= 
C$PNTX= 
CsQIo = 
C$RDBU= 
C$REFG= 
C$RESE= 
CSREVI= 
C$RFLA= 
C$RPT = 
C$SEFG= 
C$SPRI= 
C$SVEC= 
C$TPRI= 
DAR = 
DATA 

DATAFL 
DATASC 
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021140 


EXTEND 
ESEND = 


s 

s 

w 

uw 
AHHoOH OQ 


000040 


s 
NM 
$ 
ago 





ESLOAD= 
FATCHK 
FATERR= 
FATFLG 
FAULTM 
FERCM 
FIFEXP 


G$RADB= 
G$RADD= 


000035 
020104 
000060 
002172 
052527 
011554 
012022 
012074 
012143 
020376 
002722 
004117 
002146 
003076 
003102 
003100 
004021 


a aon 


Aaa 


G$RADL= 


KIPDRO= 
KIPOR1= 


000041 
000167 
172340 
172342 
172344 
172346 
172350 
172352 
172354 
172356 
172300 
172302 


aan 


an 


ada 


SEQ 0228 








_ 





CZTKHB TK-25 FRT END FUNC #4 
Symbol table 


KIPOR2= 
KIPDR3= 
KIPDR4= 
KIPORS= 
KIPDR6= 
KIPOR7= 


L$PRIO 


172304 
172306 
172310 
172312 
172314 
172316 
003106 
003104 
021624 
020250 
020232 
002142 
000001 
040000 
002166 
012760 
003120 
000010 
002110 
002036 
022552 
002070 
022756 
002106 
023032 
002032 


on 


fo] 

A) 

fw 

g 
DOOHHHAINOOHOOHOHHHOOHOHHHAIHHAAIAAHHAHAUHAAAHAAAHAAAH AH 


L$PROT 
L$PRT 
L$REPP 
L$REV 
L$RPT 
L$SOFT 
L$SPC 
L$SPCP 
L$SPTP 
L$STA 
L$SW 
L$TEST 
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021756 G 
002112 G 
002062 G 
002010 G 
023060 G 
060354 G 
002056 G 
002020 G 
002024 G 
002030 G 
002134 G 
002114 G 
002014 G 
002012 G 
002132 
002146 
005232 
011676 
011726 
011744 
012752 
011770 
012006 
012020 
012072 
012242 
012756 
013604 
013626 
016354 
016362 
016370 
016402 


052776 


O$BGNS= 


Ada 





OsDU = 
OSERRT= 
O$GNSW= 
O$POIN= 
O$SETU= 
PASRPT 
PATCH 

PATDAT 
PC .ERA= 
PC .IER= 
PC .NOO= 
PC.REL= 
PC .REW= 
PKBCNT= 
PKHI = 
PKLOW = 
PKTADD 


PR1ASC 


014765 


OAD Oa 


Of AMHMAHHHAaAaH 


RAMSIZ 
RAMTAD 
RBPCRA 
RCVHIA 
RCVLOA 
RDERR 
READ = 
READY = 
RECMSG 
RECV 
REGSAV 


003110 


002202 
021042 


an 


SEQ 0229 
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Symbol table SEQ 0230 
REWIND 010434 G $1.I1R= 020000 TTIVEC= 000060 G T2 032326 G 
RMCHBE= 000167 $1.I2R= 040000 TTOBFR= 177566 T2.1 032362 
RMCHEN= 000200 S1.PAR= 100000 TTOCSR= 177564 T2.2 033724 
RMMSGB= 000104 S2.ATI= 000010 TUV2A 002000 G T2.3 035320 
RMMSGE= 000117 S2.BTI= 000004 T$ARGC= 000001 T2.4 035672 
RMPKTB= 000020 S2.DIM= 000200 T$CODE= 002130 T29AM3 030412 
RMPKTE= 000027 S2.ILW= 000100 TSERRN= 001021 T29BA 030754 
RMR = 010000 S2.INR= 000020 TSEXCP= 000000 T29BFR 026400 
RWPACK 010530 S2.0UT= 000040 T$FLAG= 000040 T29BF2 026520 
sc = 100000 S2.UND= 000003 TSFREE= 060612 T29B0T 027761 
SCE = 020000 TBLEND= 003034 G T$GMAN= 000000 T29BSO0 026520 
SCME 004715 TCOASC 006173 T$HILI= 000007 T29BS1 026521 
SDELAY 010330 TCOCOD 006374 T$LAST= 000001 T29CNT 026544 
SEEK = 000006 TEMP1 003070 G T$LOLI= 000000 T29CON 026532 
SELASC 021350 TEMP2 003072 G T$LSYM= 010000 T290AT 026370 
SELDAT= 000004 TERCLS= 000016 T$LTNO= 000005 T290LY 026550 
SEL2 = 000002 TESTNO= 000005 T$NEST= 000000 T29DTA 030026 
SETMAP 020272 TEXASC 006132 T$NSO = 000000 T29EOT 030114 
SETU 022302 TFCASC 006234 T$NS1 = 000005 T29LO0N 031135 
SFFMSG 011746 G TIMEXP 016426 G T$NS2 = 000002 T29L00 023702 
SFHERR 003607 TIMSGO 016454 T$PCNT= 000000 T29LO0P 031217 
SFIERR 003554 TINERR 011653 T$PTAB= 010064 T29L0Q 027476 
SFIMSG 011666 G TKB = 177562 T$PTHV= 000001 T29LOR 027351 
SFPTBL 002134 G TKS = 177560 T$PTNU= 000001 T29NEF 026700 
SIFLAG 0C3112 G TMPBFR 002600 G T$SAVL= 177777 T29NEQ 031455 
SIMSG 011620 TNAM 017606 T$SEGL= 177777 T290FL 026552 
SKIPT 003336 TPB == 177566 T$SIZE= 000005 T29PAC 026360 
SOFINI 016650 G TPS = 177564 T$SUBN= 000001 T29PBP 031301 
SPACE 010134 G TRANST 002134 G T$TAGL= 177777 T29PK2 026470 
SPM1 060376 TSBA = 177776 G T$TAGN= 010066 T29PK3 026510 
SPM4 060442 TSBAH = 177777 G T$TEMP= 000006 T29RB_ 026512 
SPM6 060472 TSBAL = 177776 G T$TEST= 000005 T29RDF 026770 
SRO = 177572 TSOB = 177776 G T$TSTM= 177777 T29RDG 031553 
SRi == 177574 TSOBH = 177777 G T$TSTS= 000001 T29RES 032140 
SR2 = 177576 TSOBL = 177776 G T$$AU = 010031 T29RIB 031716 
SR3 = 172516 TSFCOD 006734 T$$AUT= 010033 T29RN 026526 
SSR = 000200 TSREJ = 000006 T$$CLE= 010034 T29RNC 030337 
STATCO 012244 TSSDEF 006303 T$$DAT= 010065 T29RRF 027037 
SVCGBL= 000000 TSSR = 000000 G T$$0U = 010032 T29RRG 027153 
SVCINS= 000001 TSSRBI 003404 G T$$HAR= 010061 T29RRN 032016 
SVCSUB= 000001 TSSRFO 006112 T$$HW = 010000 T29RSZ 026546 
SVCTAG= 000001 TSSRH = 000001 G T$$INI= 010030 T29RT2 032232 
SVCTST= 000001 TSSX 003722 T$$MSG= 010025 T29RT3 032274 
S$LSYM= 010000 TSTBLK 002724 G T$$PC = 000001 T29RWN 030270 
SO.IDB= 000010 TSTCNT 002164 G T$$PRO= 010027 T29SC 027267 
SO.IFB= 000002 TSTEND 017622 T$$PTA= 010064 T29SDG 031634 
SO.IFP= 000001 TSTFLA 002262 G T$$RPT= 010035 T29SSR 027557 
S$0.ILD= 000020 TSTLOO 017360 G T$$SOF= 010062 T29SZ 026516 
SO.ION= 000040 TSTPTR 002264 G T$$SRV= 010026 T29S2 026522 
SO.IRD= 000100 TSTSET 017412 G T$$SUB= 010060 T29S3 026524 
SO.IRW= 000004 TST29I 032111 T$$SW = 010001 T29TM 030212 
SO.ISP= 000200 TST3OI 041121 T$$TES= 010057 T29TRL 031367 
$1.ICE= 002000 TST31I 046413 T1 023642 G T29VCK 030701 
$1.IEO= 010000 TST32I 052470 T1.1 023702 T29WB 026512 
$1.IFM= 001000 TST34I 057224 T1.2 024310 T29WDC 030607 
$1.IHE= 000400 TTIBFR= 177562 G 11.3 024764 T29WDD 030500 
$1.IID= 004000 TTICSR= 177560 G T1.4 025466 T29WDE 027632 
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teble 


Symbol SEQ 0231 
TSOWDE 037652 T31TRL 045622 T34B0T 056232 14.3 050336 
T3OWDF 037443 T31TSA 046106 T348S0 055570 TS 053000 G 
T31AM3 044666 T3ivCK 045153 T34B8S1 055571 TS.1 053040 
T31BA 045226 T31WB 8=6.043162 T34CNT 055562 VAM = 000200 G 
T31iBFR 043050 T31iWOC 045100 T34CON 055602 UNITN 002152 G 
T31BF2 043170 T31WDD 045010 T34DAT 055430 UNREC = 000006 
T31iB0T 044215 T31WDE 044103 T340LY 055564 USI 004025 
T318SO 043170 T31WOF 043711 T34EO0T 057146 WAITF 017124 G 
T31BS1 043171 T31WOR 043200 T34ET 057057 WC .IFA= 000200 
T31CNT 043206 T31iWNG 043341 T34ETC 056155 WC .IFE= 000002 
T31iCNU 043210 T31WNH 043260 T34ETN 056516 WC.IGO= 000001 
T31CON 043202 T3iWRF 046213 T34ETO 055764 WC.IRE= 000010 
T31DAT 043040 T31iWSS 045301 T34ETS 056601 WC .IRW= 000004 
T310LY 043212 T32AM3 051577 T34ETZ 056667 WC .IOT= 000100 
T310TA 046316 T32BA 051713 T34ET2 056430 WC .I1iT= 000040 
T31EOT 044410 T32BFR 051170 T34L00 053040 WC .ISR= 000020 
T31L0N 045370 T32B0E 052216 T34PAC 055420 WF .IED= 000010 
T31L00 041362 T32B0T 051346 T34PK2 055530 WF .IER= 000004 
T31LOP 045452 T32CMD 051310 T34PK3 055550 WF ..IHI= 000200 
T31L0Q 043766 T32CNT 051340 T34P0S 055676 WF .IRE= 000040 
T31LOR 043641 T32CNU 051342 T34RB 055552 WF ..IWF= 000020 
T31iNEF 045710 T32DAT 051160 T34RES 057726 WF ..IWR= 000100 
T310FL 044735 T32DLY 051344 T34RRE 056054 WF .I3R= 000002 
T31iPAC 043030 T32ECF 052305 T34RRF 057600 WF .I4R= 000001 
T31PBP 045534 T32EOT 051441 T34RSZ 055560 WRTCHR 010332 G 
T3iPK2 043140 T32ERA 051646 T34RT2 060122 WRTERR 005015 
T31iPK3 043160 T32L00 046732 T34RT3 060164 WRTMSG 004760 
T3iRB 043162 T320PI 052433 T34RWN 057246 XFERAS 016614 
T31RDE 043214 T32PAC 051150 T34STE 057421 XNXM 017300 
T31RDF 043413 T32PK2 051260 T34STM 057325 XORBFO 007422 
T31iRES 046460 T32PK3 051300 T34SZ 055556 XORFOR 007540 
T31RN 043176 T32RB 051302 T34S2. 4055572 XSTO = 000006 G 
T3iRNC 044613 T32RES 052632 T34S3 = 055574 XST1 = 000010 G 
T3iRRF 043462 T32RIB 051766 T34TMK 056751 xST2 = 000012 G 
T3iRT2 046552 T32RT2 052724 T34TMN 057515 XST3 = 000014 G 
T3iRT3 046614 T32RT3 052754 T34TRK 055566 XST4 = 000016 G 
T31RWN 044544 T32RWN 051530 T34WB = 055552 XSOBOT= 000002 
T31SC_ 043557 T32SCF 052064 T34WD 8 8=©055576 XSOCON 015202 
T3iSCF 046031 T32SZ 051306 T34WOR 055600 XSOEOT= 000001 
T31SSR 044047 T32TSA 052141 T34WOL 057652 XSOIE = 000040 
T31SZ 043166 T32WB 8= 051302 T34W™M 056341 XSOILA= 000400 
T3182 043172 T32WDC 052366 14 046640 G XSOILC= 001000 
T31S3 043174 T34BFR 055440 T4.1 046732 XSOLET= 020000 
T3iTIM 044310 T34BF2 055570 14.2 047550 XSOMOT= 000200 


T3iTM 044467 


- ABS. 060612 000 8=6©(RW,I,GBL,ABS,OVR) 
000000 001 (CRW,I,LCL,REL,CON) 
Errors detected: 0 


#s4 Assembler statistics 


Work file reads: 289 
Work file writes: 276 
Size of work file: 31064 Words ( 122 Pages) 
Size of core pool: 19714 Words ( 75 Pages) 
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Symbol table 


Operating system: RSX-11M/PLUS (Under VAX/VMS) 


Eiepsed time: 00:10:18.25 
CZTKHB .BIN, CZTKHB/ -SP=SVC/ML ,CZTKHB 


—— 





SEQ 0232 


